Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
31
Добавлен:
10.02.2014
Размер:
227 б
Скачать
Program zadanie_3;
Var i: integer;
Begin
Write ('‚ўҐ¤ЁвҐ i');
Readln(i);
Case i of
0..10: Writeln('x+a');
10..20: Writeln('x-a');
20..30: Writeln('x*x');
30..60: Writeln('a*a+x');
else Writeln('x*x+a*a');
End;
End.
Соседние файлы в папке вар 09