помогите написать программы на паскале 1.вычислить ...
помогите написать программы на паскале
1.вычислить произведение 3-х вводимых чисел которые меньше 20.
2. вывести на экран количество четных и количество нечетных чисел в диапазоне от Х до У.
Есть ответ
17.12.2022
204
Ответ
1)
uses crt;
var a,b,c:integer;
begin
read(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;
begin
read(x,y);
for i:=x to y do
begin
if (x mod 2=0) then k:=k+1 else k1:=k1+1;
writeln('Четных: ',k);
write('Нечетных: ', k1);
end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
