Задание:
1) Найдите сумму и произведение целых чисел больших 13 и меньших 100 и кратных 4. Решите задачу на языкеPascal
Решение:
Program Pr1; uses crt; var i,c,t: integer; beginclrscr; c: =0; t: =1; i: =14; while i<100 do if i mod 4=0 then begin c: =c+i; t: =t*i; end; writeln ('+',c); writeln ('*',t); end.
Знаете другой ответ?