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

0 голосов

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


Информатика (91 баллов)
оставил комментарий (33 баллов)

ВСЕ ДЕЛАТЬ?\

оставил комментарий (91 баллов)

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

оставил комментарий Одаренный (1.4k баллов)

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

оставил комментарий (91 баллов)

3 числа

Дано ответов: 2
0 голосов
Одаренный (1.4k баллов)
 
Правильный ответ

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.


оставил комментарий Одаренный (1.4k баллов)

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

оставил комментарий (91 баллов)

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

0 голосов
(33 баллов)

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);

...