Предмет: Информатика,
автор: angel5220
1)В диапазоне от 0 до 100 подсчитать количество чисел оканчивающихся на 3.
2)В диапазоне от 0 до 50 подсчитать количество чисел сумма цифр которых равна 3.
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: Қазақ тiлi,
автор: parottt
Предмет: Русский язык,
автор: revinavlada08
Предмет: Химия,
автор: iitsmakonya161006
Предмет: География,
автор: лара55
Предмет: Алгебра,
автор: katerinka08