Впаскале. посчитать количество чисел от 1 до 10000, кратные 7 и не оканчивающиеся на 7,если знаешь только процедуры while условие do, и самые простые

263

360

Посмотреть ответы 2

Ответы на вопрос:

vadimbukov

Информатика

4,5(33 оценок)

Var count,i: integer; begin //по условию про циклы for и repeat until мы не знаем //поэтому обойдемся циклом while i: =14; count: =0; while i< =10000 do begin if i mod 10< > 7 then count: =count+1; i: =i+7; end; writeln(count); end.