Написать программу , которая увеличивает число на 7, если оно меньше нуля и умен...

October 2021 2 20 Report

Написать программу , которая увеличивает число на 7, если оно меньше нуля и уменьшает на 2. Если исходное число больше 0

антагонист

Verified answer

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.

1 votes Thanks 1

Jora12358 Спасибо)

mrVladislav

Verified answer

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.

1 votes Thanks 0

Jora12358 Спасибо)

Answers & Comments

Verified answer

Verified answer

Как связанны экономика и политика между собой? Примеры...

100 баллов!!! Помогите пожалуйста! Геометрия ( трапеция) Построения возможно сде...

Как связанны политика, экономика, духовная сфера и социальная сфера между собой?...

Как жили при царе в древнем рисе...

Ребят, нужна помощь ! Если вы хорошо разбираетесь в средствах выразительности, т...

Составьте уравнения химических реакций при помощи которых можно осуществить след...

определите массовую долю воды в кристаллической соде Na2CO3*10H2O...

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

Helpful Links

Helpful Social