Скласти програму знаходження суми цілих додатних чисел кратних 4 і менше 50

210

242

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

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

misha12e

Информатика

4,8(95 оценок)

Program zadacha; const c = 4; max = 50; var a, b: integer; begin a : = c; while a < max do begin if a mod c = 0 then b : = b + a; a : = a + 1; end; writeln('сума чисел, кратних ', c, ' і менше ', max, ' становить ', b); readln; end.

милота0011

Информатика

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

Var a: array[1..10] of integer; i,c: integer; begin for i: = 1 to 10 do begin write('введите ',i,' - ый элемент массива '); readln(a[i]); end; write('индексы элементов, больших 5 - ('); for i: = 1 to 10 do if a[i]> 5 then begin write(i,' '); c: =1; end; if c=0 then write('таких нет)') else write(')'); end.