Помогите написать программы на паскале…

Question

Помогите написать программы на паскале 1. Вычислить произведение 3-х вводимых чисел которые меньше 20. 2. Вывести на экранколичество четных и количество нечетных чисел в диапазоне от Х до У.

Answer 1

82

rjpks

13 февраля 2023

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.

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

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

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

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

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