var a:array [1..10] of integer;
s,i,c,b:integer;
Begin
read(c,b,n);
randomize;
for i := 1 to n do
a[i]:= random(b) -c+1;
for i:= 1 to n do
if i mod 2 = 0 then s:=s+1;
writeln(s);
End.
Начало
• Объявление целочисленной переменной со значением 1
• Объявление переменной с плавающей точкой со значением 1.4
• Присвоение значения переменной а равное 1.4 * 1 + (1/1.4) [2.1142857142857143]
• k?
• Вывод а (2.1142857142857143)
Конец
A , B = int (input()) , int (input())
for i in range (A,B+1):
print (i**2)
Var n:integer;
begin
repeat
read(n);
if n<1 or n>12 then writeln('Неверный номер месяца');
until n=>1 and n<=12 ;
case n of
1: writeln('Этот месяц - Январь, время года - зима.');
2: writeln('Этот месяц - Февраль, время года - зима.');
3: writeln('Этот месяц - Март, время года - весна.');
4: writeln('Этот месяц - Апрель, время года - весна.');
5: writeln('Этот месяц - Май, время года - весна.');
6: writeln('Этот месяц - Июнь, время года - лето.);
7: writeln('Этот месяц - Июль, время года - лето.');
8: writeln('Этот месяц - Август, время года - лето.');
9: writeln('Этот месяц - Сентябрь, время года - осень.');
10: writeln('Этот месяц - Октябрь, время года - осень.');
11: writeln('Этот месяц - Ноябрь, время года - осень.');
12: writeln('Этот месяц - Декабрь, время года - зима.');
end;
end.