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