17 сентября 2009 года Автор Разин Арсений Андреевич spuf ru ГУ-ВШЭ ПФ

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
{ 17 сентября 2009 года
[Автор]
Разин Арсений Андреевич (spuf.ru)
ГУ-ВШЭ (ПФ), БИ-09-2, п/г 1.
[Задача]
Индивидуалка 1. Начальные программки.
1. Ввести число. Если оно >0, вывести его квадрат, если < 0, куб.
[Решение]
Банально до безобразия.
}
program bySpuf;
var
Number, Res: integer; {число, результат}
ErrorCode: integer; {код ошибка для Val}
UserEnter: string; {строка для чтения}
begin
writeln('Введите целое число, отличное от нуля:');
readln(UserEnter);
{-- начало тестов на дурака}
{число ли ввёл пользователь}
val(UserEnter, Number, ErrorCode);
if ErrorCode > 0 then begin
writeln('Вы ввели не число!');
exit;
end;
{является ли число нулем}
if Number = 0 then begin
writeln('Вы ввели ноль!');
exit;
end;
{-- конец тестов на дурака}
if Number > 0 then begin {число >0}
Res := sqr(Number);
writeln('Квадрат числа ', Number, ' равен ', Res);
end else begin {число <0}
Res := sqr(Number)*Number;
writeln('Куб числа ', Number, ' равен ', Res);
end;
end.