Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

лабораторная работа / Текст лабы 2

.2.txt
Скачиваний:
46
Добавлен:
10.02.2014
Размер:
302 б
Скачать
Program lab_2.2;
Const a=2;
Var x,y: integer;
Begin
Writeln ('Введите число х');
Readln (x);
Case x of
0..9: y:=x+a;
10..20: y:=x-a;
21..29: y:=Sqr(x);
31..59: y:=Sqr(a)+x;
else y:=Sqr(x)+Sqr(a);
End;
Writeln ('y= ',y);
End.


x=0; y=2
x=10; y=8
x=21; y=441
x=31; y=35
x=60; y=3604