Анфим
6 год назад
Даны целые числа x, y, c. Напишите программу, которая находит значение выражения x+y/2c и выводит на экран монитора результат.
Верная ли программа?
Program AAA;
Var x, y: integer;
c: real;
Begin
Write ('Введите 3 числа');
Readln (x,y,c);
c/ = ( (x)+y)*c/2;
Writeln ('n = ',c)
End.
ОТВЕТЫ
Жабин
Jul 3, 2019
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.
270
Смежные вопросы:
