3. If not (A = B) Then
begin
A = A + B;
B = A + B;
end
else
begin
A = 0;
B = 0;
end;
Var n:integer;
begin
writeln('n=');
readln(n);
case n of
3,4,5:writeln('Весна');
6,7,8:writeln('Лето');
9,10,11:writeln('Осень');
1,2,12:writeln('Зима');
end;
<span>end.</span>
1. 45
2. 26
3. 88
4. 150
5. 120
Ну например алфавит
Паскаля составляют:
- прописные и строчные буквы латинского алфавита: A, B, C…Y, Z, a, b,c,…y, z ;
- десятичные цифры: 0, 1, 2,…9;
- специальные символы: + - * / > < =; # ‘ , . : {} [] ( )
- комбинации специальных символов , которые нельзя разделять пробелами, если они используются как знаки операций: «:=», «..», «<>», «<=», «>=», «{}».
"Я к вам пишу – чего же боле? Что я могу ещё сказать? "52 символа52 символа * 16 бит = 832 бит