Pascal. Даны 2 числа, если первое больше второго по модулю или 2-е число отрицат...

October 2021 2 21 Report

Pascal. Даны 2 числа, если первое больше второго по модулю или 2-е число отрицательное, необходимо уменьшить первое число в 5 раз, иначе числа оставить без изменения.

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 большое спасибо! вы не подскажите сайт, где хорошо написано, как пользоваться программой и как ее писать? в школе меня материал нетустраивает, отчего я путаюсь

missakperova не устраивает*

missakperova спасибо

missakperova иначе числа оставить без изменения - это где в программе?

missakperova это ведь нужно указать в программе) я уже сама сделала немного по-другому, спасибо

Programust Var a,b:real;
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.

1 votes Thanks 1

Answers & Comments

sostavit sistematicheskuyu klassifikaciyu zhivotnogo i rasteniya

nuzhno napisat kratko tema dobro pozhalovat v ufu gde nuzhno kak by proreklami

ochen srochnosostavte tablicu sravneniya kino i teatra ili teatra i muzyki ili

pomogite napisat v pascal dany dva chisla esli vtoroe chislo otricatelnoe neo

рекомендуемые вопросы

Helpful Links

Helpful Social