Pascal. Даны 2 числа, если первое больше второго по модулю или 2-е число отрицательное, необходимо уменьшить первое число в 5 раз, иначе числа оставить без изменения.
Answers & Comments
kage1998
Program chik; var a,b:real; begin readln(a,b); if(abs(a)>abs(b))or(b<0)then a:=a/5; writeln(a:1:3); writeln(b:1:3); end.
1 votes Thanks 1
missakperova
большое спасибо! вы не подскажите сайт, где хорошо написано, как пользоваться программой и как ее писать? в школе меня материал нетустраивает, отчего я путаюсь
Answers & Comments
var a,b:real;
begin
readln(a,b);
if(abs(a)>abs(b))or(b<0)then a:=a/5;
writeln(a:1:3);
writeln(b:1:3);
end.
begin
readln(a,b);
if (abs(a)>b) or (b<0) then
begin
a:=a/5;
writeln(a,' ',b)
end
else
writeln(a,' ',b);
end.