Ввести 2 числа. Если оба числа равны 5.5, то выдать их на печать, иначе удвоить число не равное 5.5. Программу Паскаль пожалуйстааааааааааааа
Ответы
Ответ дал:
0
var x,y:real;
begin
readln(x,y);
if (x=y) and (x=5.5) then writeln('5.5 , 5.5')
else
if (x<>y) and (x<>5.5) then begin x:=x*2; writeln(x, ' , 5.5'); end;
if (x<>y) and (y<>5.5) then begin y:=y*2; writeln('5.5 , ', y); end;
end.
begin
readln(x,y);
if (x=y) and (x=5.5) then writeln('5.5 , 5.5')
else
if (x<>y) and (x<>5.5) then begin x:=x*2; writeln(x, ' , 5.5'); end;
if (x<>y) and (y<>5.5) then begin y:=y*2; writeln('5.5 , ', y); end;
end.
Вас заинтересует
1 год назад
1 год назад
8 лет назад
9 лет назад
9 лет назад