Борис
5 год назад
Вычислить y=100/x, если x<0; y=100*x, если x>=0, с помощью программы Паскаль
ОТВЕТЫ
Ruslan
Oct 24, 2020
var
x,y:integer;
begin
writeln('Введите число');
readln(x);
if x<0 then
y:=100/x
else
y:=100*x;
writeln('Полученное число =', y);
end.
x,y:integer;
begin
writeln('Введите число');
readln(x);
if x<0 then
y:=100/x
else
y:=100*x;
writeln('Полученное число =', y);
end.
521
Смежные вопросы:
