⦁Выполнить 2 задания. Надо написать программы ** алгоритмическом языке: ⦁С клавиатуры...

Question

⦁Выполнить 2 задания. Надо написать программы на алгоритмическом языке: ⦁С клавиатуры вводится целое число а. Если это число положительное, то к этому числу а прибавить 2, а если число отрицательное, то вычесть из него 1. Вывести полученный результат на экран. ⦁ С клавиатуры вводится оценка от 2 до 5. Вывести следующие сообщения: если введена 2, то вывести «Плохо!» если введена 3, то вывести «Очень посредственно!» если введена 4, то вывести «Ты явно можешь лучше!» если введена 5, то вывести «У тебя все получилось!»

Answer 1

Ответ:

Если Паскаль подойдет, то вот

Объяснение:

1 задание:

program test1;

var a: integer;

begin

 Write('Введите начение а: ');

 ReadLn(a);

 if a > 0 then a := a + 2

   else if a < 0 then a := a - 1;

 WriteLn('a = ', a);

end.

2 задание:

program ocen;

var ocenka: byte;

begin

 Write('Введите оценку (от 2 до 5): ');

 ReadLn(ocenka);

 case ocenka of

   2: WriteLn('Плохо!');

   3: WriteLn('Очень посредственно!');

   4: WriteLn('Ты явно можешь лучше!');

   5: WriteLn('У тебя все получилось!');

 end;

end.