Задание:
Найти сумму и произведение черных чисел от 20 до С (for)
Решение:
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.
Знаете другой ответ?
Найти сумму и произведение черных чисел от 20 до С (for)
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.
Знаете другой ответ?