Найти сумму и произведение черных чисел от 20 до С (for)

Question

Answer 1

78

salarica

20 февраля 2023

Program fo; var z,x,c,i: integer; beginwriteln ('Введите c'); readln (c); z: =0; for i: =20 to c doif i mod 2=0 thenz: =z+1; writeln (z); end.

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

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

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