1) Найдите сумму и произведение целых чисел больших 13 и меньших…

Question

1) Найдите сумму и произведение целых чисел больших 13 и меньших 100 и кратных 4. Решите задачу на языкеPascal

Answer 1

33

geeno

17 марта 2023

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.

пользователи выбрали этот ответ лучшим

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

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

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

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