найдите сумму и произведение трех чисел, вводимых с клавиатуры
5-9 класс
|
Код PascalABC:
program Z1;
uses crt;
var
a,b,c,r,r1:real;
begin
writeln('Введите 1, 2 и 3 числа ');
readln(a,b,c);
r:=a+b+c;
r1:=a*b*c;
writeln('Сумма чисел: ',r);
writeln('Произведение чисел ',r1);
end.
program xxx;
var a, b, c, s, p : real;
begin
write('введите первое число а =');
readln(a);
write('введите второе число b = ');
readln(b);
write('введите треnmt число c = ');
readln(c);
s:= a + b + c;
p:= a * b * c;
writeln('сумма чисел =', s);
writeln('произведение чисел =', p);
readln
end.
Другие вопросы из категории
Читайте также
(Тема:Программирование ветвлящихся и цепленных алгоритмов)
2.Дано двухзначное число,найти сумму и произведение его чисел.
(2-ая задача решается с div и mod)
(Тема:Программирование ветвлящихся и цепленных алгоритмов )
тема" циклы в паскале"
найти произведение 5 чисел вводимых с клавиатуры