Предмет: Информатика,
автор: daixo
Составить программу. Вводятся три значения ускорения свободного падения. Программа должна проверить, есть ли среди них ускорения свободного падения.
Ответы
Автор ответа:
0
var
g: real;
i: integer;
f: boolean;
begin
writeln('Введите данные');
for i := 1 to 3 do
begin
readln(g);
f := f or (g = 9.8)
end;
writeln(f);
end.
g: real;
i: integer;
f: boolean;
begin
writeln('Введите данные');
for i := 1 to 3 do
begin
readln(g);
f := f or (g = 9.8)
end;
writeln(f);
end.
Похожие вопросы
Предмет: Физика,
автор: IVANNNNNN66
Предмет: Оʻzbek tili,
автор: nikiitosnoo
Предмет: География,
автор: outkill
Предмет: Алгебра,
автор: 89285779910аишка