Laenresa
6 год назад
Даны целые числа x, y, c. Напишите программу, которая находит значение выражения x+y/2c и выводит на экран монитора результат.Верная ли программа?Program AAA;Var x, y: integer;c: real;BeginWrite ('Введите 3 числа');Readln (x,y,c);c/=( (x)+y)*c/2;Writeln ('n=',c)End.
ОТВЕТЫ
Bryan Gilbert
Oct 24, 2020
var x,y,c,res:real;
begin
writeln('введите три числа');
readln(x,y,c);
res:=x+(y/(2*c));
writeln('x+y/2c=',res);
end.
begin
writeln('введите три числа');
readln(x,y,c);
res:=x+(y/(2*c));
writeln('x+y/2c=',res);
end.
375
Смежные вопросы:
