Ввести 2 числа. Если оба числа равны 5.5, то выдать их на печать, иначе удвоить
число не равное 5.5. Программу Паскаль пожалуйста
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Просковия
Используем конструкцию if...then...else:
program dvachisla;
Var a, b: real;
begin
writeln ( ' Введите первое число ' );
readln (a);
writeln ( ' Введите второе число ' );
readln (b);
if a <> 5.5 then a := a * 2;
if b <> 5.5 then b := b * 2;
writeln (a, ' ', b );
end.
program dvachisla;
Var a, b: real;
begin
writeln ( ' Введите первое число ' );
readln (a);
writeln ( ' Введите второе число ' );
readln (b);
if a <> 5.5 then a := a * 2;
if b <> 5.5 then b := b * 2;
writeln (a, ' ', b );
end.
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
