Ответы
Ответ дал:
0
var a,b,c,s: integer;
begin
write('Введите первое слагаемое: ');
readln(a);
write('Введите второе слагаемое: ');
readln(b);
write('Введите третье слагаемое: ');
readln(c);
s:=a+b+c;
write(a,'+',b,'+',c,'=',s);
end.
begin
write('Введите первое слагаемое: ');
readln(a);
write('Введите второе слагаемое: ');
readln(b);
write('Введите третье слагаемое: ');
readln(c);
s:=a+b+c;
write(a,'+',b,'+',c,'=',s);
end.
Приложения:
Ответ дал:
0
Спасибо
Ответ дал:
0
Program Mat;
var a,b: integer;
begin
write ('Напишите числа, которые хотите сложить: ')
read (a,b);
writeln ('Сумма этих чисел равна ', (a+b));
end.
var a,b: integer;
begin
write ('Напишите числа, которые хотите сложить: ')
read (a,b);
writeln ('Сумма этих чисел равна ', (a+b));
end.
Приложения:
Вас заинтересует
2 года назад
3 года назад
9 лет назад
10 лет назад