⦁ Выполнить 2 задания. Надо написать программы на алгоритмическом языке:
⦁ С клавиатуры вводится целое число а. Если это число положительное, то к этому числу а прибавить 2, а если число отрицательное, то вычесть из него 1. Вывести полученный результат на экран.
⦁ С клавиатуры вводится оценка от 2 до 5. Вывести следующие сообщения:
если введена 2, то вывести «Плохо!»
если введена 3, то вывести «Очень посредственно!»
если введена 4, то вывести «Ты явно можешь лучше!»
если введена 5, то вывести «У тебя все получилось!»
Асыл111111111
1
14.04.2020 04:57
1
Другие вопросы по теме Информатика
daniilprok2004
14.04.2020 17:30
влад20491
14.04.2020 17:29
KateDonut1
14.05.2020 12:11
AbstergoAlexander
14.05.2020 12:11
anast1sava
14.05.2020 12:11
Aruzhka001
14.05.2020 12:11
maksi0071
14.05.2020 12:12
Айхан11111111
22.09.2019 01:10
leesasha083
21.04.2020 14:15
Популярные вопросы
- Как правильно сказать по искусство останавливать время the art...
2 - Кне относится: а)k2o. б)cuo. в)н2о. г)mno2. д)so3. e) h2o2...
3 - Обмен местами в различных программах часто нужно менять значения...
1 - Яку функцію виконує органела клітини, позначена на ілюстрації?...
2 - Составьте условие к решать не нужно ! ...
3 - 7монетаның біреуі жалған.жалған монета қалғандарынан ауыр. кіртастары...
1 - Илья разложил по m марок в каждый из шести альбомов,и ещё 12...
2 - Выражение 25×(-0,2b⁸)²×(1/5 bc²)³ в стандартный вид и найдите...
3 - П.а.федотов,какой социальный слой он критиковал в своих картинах?...
2 - Схема к стихотворению у лукоморья...
3
Если Паскаль подойдет, то вот
Объяснение:
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.