Чаще всего отказывают, но бывают некоторые исключения
Program n_5;
var
a: integer;
procedure Error;
begin
write('ERROR');
exit;
end;
begin
write('Введите номер месяца - ');
readln(a);
if (a <= 0) or (a > 12) then
Error
else
if (a = 12) or (a = 1) or (a = 2) then
write('Зима')
else
if (a = 3) or (a = 4) or (a = 5) then
write('Весна')
else
if (a = 6) or (a = 7) or (a = 8) then
write('Лето')
else
if (a = 9) or (a = 10) or (a = 11) then
write('Осень');
end.
program p;
var s,a,b,c:string;
begin
s:='геометрические фигуры';
writeln('введите названия трёх геометрических фигур');
read(a,b,c);
writeln(s,': ',a,', ',b,' и ',c);
end.
A) writeln(c);
б) var a, s: integer;
в) r := p - q;
2. а)
9
53 (после writeln происходит переход на новую строку, после write - нет)
2. б)
8
5-35+1=6
1) 7.85+2.6=10.45 км/ч скорость лодки по теч реки
2) 12,54:10,45=<span>1,2 ч время</span>