Напишите программу на языке программирования Pascal. Дано натуральное число n. Если число большое нуля, то вывести это число, увеличенное в 7 раз, а иначе вывести квадрат этого числа.
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
Спасибо большоое
Вас заинтересует
1 год назад
1 год назад
8 лет назад
8 лет назад
9 лет назад