Задание:
Помогите написать программы на паскале 1. Вычислить произведение 3-х вводимых чисел которые меньше 20. 2. Вывести на экранколичество четных и количество нечетных чисел в диапазоне от Х до У.
Решение:
1) uses crt; var a,b,c: integer; beginread (a,b,c); if (a>20) or (b>20) or (c>20) then write (a*b*c) else write ('Одно из чисел больше чем 20'); end.2) uses crt; var x,y,i,k,k1; integer; beginread (x,y); for i: =x to y dobeginif (x mod 2=0) then k: =k+1 else k1: =k1+1; writeln ('Четных: ',k); write ('Нечетных: ', k1); end.
Знаете другой ответ?