Var
t,v:integer;
Begin
Write('Введите температуру воздуха(°C): ');ReadLn(t);
if t > -20 then WriteLn('Дети идут в школу')
else if t<-25 then WriteLn('Дети в школу не идут')
else
Begin
Write('Введите скорость ветра(м/с): ');ReadLn(v);
if v>=7 then WriteLn('Занятия отменяются')
else WriteLn('Занятия не отменяются');
End
End.
Предмет для вывода документа на бумагу называется Принтером
Основа метода (самое важное) - использование концепции трех базовых элементов - линейной, ветвления, и цикла.
На втором месте по значимости - использование большого количества подпрограмм
1) Маша
2) Молодец
3) Молоток
4ое у меня не прогружается
S:= copy(A,1,1)+copy(B,1,1)+copy(K,1,1);