Вопрос по информатике:
Даны четыре действительных числа a,b,c,d. Если произведение abбольше произведения cd, то удвоить числа a и b, в противном случае удвоить числа c и d
Пожаловаться
- 05.03.2018 06:49
- Информатика
- remove_red_eye 11495
- thumb_up 37
Ответы и объяснения 2
Program n1;
var a,b,c,d: real;
begin
readln(a,b,c,d);
if (a*b>c*d) then
begin
a:=a*2;
b:=b*2;
end else begin
c:=c*2;
d:=d*2;
end;
write(a,' ',b,' ',c,' ',d);
end.
var a,b,c,d: real;
begin
readln(a,b,c,d);
if (a*b>c*d) then
begin
a:=a*2;
b:=b*2;
end else begin
c:=c*2;
d:=d*2;
end;
write(a,' ',b,' ',c,' ',d);
end.
Пожаловаться
- 06.03.2018 06:30
- thumb_up 6
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=readinteger3('a,b,c->'); var d:=readinteger('d=');
if a*b > c*d then begin a:=a*2 ; b:=b*2; end else
begin
c:=c*2; d:=d*2;
end;
writeln('a=',a,' ','b=',b);
writeln('c=',c,' ','d=',d);
end.
//Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=readinteger3('a,b,c->'); var d:=readinteger('d=');
if a*b > c*d then begin a:=a*2 ; b:=b*2; end else
begin
c:=c*2; d:=d*2;
end;
writeln('a=',a,' ','b=',b);
writeln('c=',c,' ','d=',d);
end.
Пожаловаться
- 07.03.2018 17:00
- thumb_up 39
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы