Задание ** 4 1.Напишите программу, которая приветствует пользователя. Использовать две...

Question

Задание на 4
1.Напишите программу, которая приветствует пользователя. Использовать две переменные Фамилию и Имя. 2.Напишите программу, которая поможет найти сумму 5 чисел. 3.Напишите программу, которая поможет найти произведение 3 произвольных чисел. 4.*Напишите программу, которая поможет сравнить введенные пользователем числа.

Comments

ВСЕ ДЕЛАТЬ?\

---

Если можно пожалуйста то всё

---

сколько чисел вводится в 4 номере?

---

3 числа

Answer 1

1.
var
f_name,s_name:string;
begin
writeln('Введите имя');
readln(f_name);
writeln('Введите фамилию');
readln(s_name);
writeln('Доброе утро ',f_name,' ',s_name);
end.

2.
var
s,a:real;
i:integer;
begin
s:=0;
for i:=1 to 5 do
begin
writeln('Введите число №',i);
readln(a);
s:=s+a;
end;
writeln('Сумма=',s)
end.

3.
var
s,a:real;
i:integer;
begin
s:=1;
for i:=1 to 3 do
begin
writeln('Введите число №',i);
readln(a);
s:=s*a;
end;
writeln('Произведение=',s);
end.

4.
var   
a, b, c, max:
integer;
 begin   
 write ('Введите три числа: ');   
readln (a, b, c);    
if a >= b then       
max := a    else       
max := b;    
if c > max then       
max := c;    
writeln ('Максимальное число: ', max); 
end.

Comments

Добавил все 4 номера

---

Спасибо огромное))))

Answer 2

Var a,b,c,d,i,r:integer;begin writeln (' vvedite 5 chusla ');read(a,b,c,d,i);r:=a+b+c+d+i;write (r);end.
возможно read(a);read(b);read(c);..... вместо read(a,b,c,d,i);