Добавил:
student_tipo
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:контрольная работа / вар 09 / задание3
.txt 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.
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