Сотавьте программу которая вычесляет количество кратная 4м в диапозон от 300 до 400.на языке паскаль.

273

437

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

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

Vita1968

Информатика

4,7(93 оценок)

проверено в pascalabc.net 3.3.5, сборка 1662 от 29.04.2018

var

s: integer;

begin

for var i : = 300 to 400 do

if (i mod 4) = 0 then

s : = s + 1;

print(s);

end.

Xenia2005

Информатика

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

Pascalabc.net 3.3.5, сборка 1644 от 23.03.2018 внимание! если программа не работает, обновите версию! begin var a: =arrrandom(15,-10,10); a.println; var m: =readinteger('m='); a.indexesof(t-> t> =m).select(t-> t+1).println end. пример -5 2 1 5 -1 -9 -10 -2 -7 -6 2 -8 -9 -5 8 m= 3 4 15