1) В диапазоне от 0 до 100 подсчитать количество чисел оканчивающихся на 3,2) В…

Question

41

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

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

antipiratik · Accepted Answer

49

antipiratik

15 февраля 2024

var i,i1,i2,count1,count2: integer; begincount1: =0; count2: =0; for i: =0 to 100 doif (i mod 10=3) then inc (count1); for i: =0 to 50 dobegini1: =i mod 10; i2: =i div 10; if (i1+i2=3) then inc (count2); end; writeln (count1); writeln (count2); readln; end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: