1. Информатика
  2. 1)в диапазоне от 0 до 100 подсчитать

1)в диапазоне от 0 до 100 подсчитать количество чисел оканчивающихся на 3. 2)в диапазоне от 0 до 50 подсчитать количество чисел сумма цифр которых равна 3.

keril1101 keril1101    2   18.05.2019 23:30    1

Ответы
davidgts davidgts  12.06.2020 05:08

var i,i1,i2,count1,count2:integer;

begin

count1:=0;

count2:=0;

for i:=0 to 100 do

if (i mod 10=3) then inc(count1);

for i:=0 to 50 do

begin

i1:=i mod 10;

i2:=i div 10;

if (i1+i2=3) then inc(count2);

end;

writeln (count1);

writeln (count2);

readln;

end.

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Rustam7887 Rustam7887  24.07.2019 15:50
Написать программу, которая определяет кратность числа 5, если число кратно 5, тогда приписать к этому числу 8 в конце и выдать на печать полученное число, если не кратно 5,...
MariyaSavinkova MariyaSavinkova  24.07.2019 15:50
Подскажите , что нужно написать в программе с циклом,чтобы в конце компьютер выдал сколько раз цикл выполнялся, пока условие не было выполнено....
michlich michlich  20.05.2020 09:15
с информатикой 8 класс надо быстро​...
shurik23021983 shurik23021983  20.05.2020 09:15
1.Раздел переменных программы на языку Pascal обозначается служебным словом: 1)VAR 2)WRITE 3)GOTO 4)READ 2.Массив программы на языку Pascal обозначается служебным словом: 1)VAR...
Шан15 Шан15  20.05.2020 09:17
В одном множестве 30 элемент(-ов, -а), а в другом — 198. Какое максимальное количество элементов может быть в их объединении?...
QwertyMia QwertyMia  05.04.2020 19:57
Найдите информационный объем сообщения В лесу родилась елочка , которое было записано с алфавита состоящего из 64 символов (пробел также считается символом)​...
bloxinilyxa bloxinilyxa  05.04.2020 19:57
Поясніть як виконується таке вкладене розгалуження БЫСТРЕЕ!...
Melenocka0606 Melenocka0606  05.04.2020 19:57
Алгоритм, у якому частинакоманд можуть не виконуватися,залежно від виконання умови...А) лінійний алгоритм Б) Циклічний алгоритм В) алгоритм з розгалуження Г) алгоритм з повторенням...
rokovayajenshi rokovayajenshi  05.04.2020 20:00
Чему будет равно значение переменной «a» после выполнения этого цикла? i:=3; a:=12; while i 3 do begin a:=a+i; i:=i+1; end;...
elizabeth0vasillenko elizabeth0vasillenko  05.04.2020 19:59
балов!! Комп ютер зчитує 3 додатних числа a, b, c. З ясувати , чи можна з них утворити трикутник?...

Популярные вопросы