Написать программу , которая увеличивает число на 7, если оно меньше нуля и уменьшает на 2. Если исходное число больше 0
mrVladislav:
Паскаль?
Ответы
Ответ дал:
1
var a,b,c:integer;
begin
writeln('введите число');
readln(a);
if a<0 then b:=a+7 else b:=a-2;
if a=0 then while a=0 do begin writeln('введите другое число'); end;
writeln('полученное число ', b);
end.
begin
writeln('введите число');
readln(a);
if a<0 then b:=a+7 else b:=a-2;
if a=0 then while a=0 do begin writeln('введите другое число'); end;
writeln('полученное число ', b);
end.
Ответ дал:
0
var x : real;
begin
writeln ( 'Введите число : ');
readln (x);
if (x<0) then x:=x+7
else if (x>0) then x:=x-2;
writeln (' Конечное число : ',x);
end.
begin
writeln ( 'Введите число : ');
readln (x);
if (x<0) then x:=x+7
else if (x>0) then x:=x-2;
writeln (' Конечное число : ',x);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад