Условный оператор. Циклы. (PascalABC.NET)
Версия от 07:59, 7 июня 2021; Безуглов Сергей (обсуждение | вклад)
Условный оператор
1 program Test;
2 var
3 age: integer;
4 begin
5 Write('Введите ваш возраст:');
6 Readln(age);
7 if (age > 65) then
8 begin
9 Writeln('Вы уже пенсионер');
10 end
11 else
12 begin
13 Writeln('Добрый день молодёжь!');
14 end;
15 end.
Циклы
1 program Test;
2 var
3 i: integer;
4 begin
5 Writeln('While loop');
6 i := 1;
7 while(i < 11) do
8 begin
9 Writeln(i);
10 i := i + 1;
11 end;
12
13 Writeln('Repeat-Until loop');
14 i := 1;
15 Repeat
16 Writeln(i);
17 i := i + 1;
18 until i > 10;
19
20 Writeln('for loop');
21 for var j: integer := 1 to 10 do
22 begin
23 Writeln(j);
24 end;
25 end.