Есть ответ 👍

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

148
448
Посмотреть ответы 2

Ответы на вопрос:


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.

 


#  

a = list(map(str, input("Введите фамилию и имя: ").split()))

print(f"{a[1][:1]}. {a[0]}")

# B

a = list(map(str, input("Введите фамилию, имя и отчество: ").split()))

print(f"{a[1][:1]}.{a[2][:1]}. {a[0]}")

Популярно: Информатика