Напишите программу ** языке программирования Pascal. Дано натуральное число n. Если число...

Question

Напишите программу на языке программирования Pascal. Дано натуральное число n. Если число большое нуля, то вывести это число, увеличенное в 7 раз, а иначе вывести квадрат этого числа.

Comments

Ты не знаешь?

---

неа

---

Ты шо я дуб

---

И это

---

магила

---

Могила

Answer 1

1. Современное решение

PascalABC.NET 3.2, сборка 1427 от 24.04.2017
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  Writeln(n>0?n*7:n*n)
end.

2. Школьное решение в стиле ТурбоПаскаль 1983г.

var
  n:integer;
begin
  Write('n=');
  Read(n);
  if n>0 then n:=7*n
  else n:=n*n;
  Writeln(n)
end.

Comments

Спасибо большоое

---

Боже мой, как Вы все это понимаете

---

Это невероятно сложно