Var
i,sum:Integer;
Begin
for i:=5 to 101 do
begin
if (i mod 2 <> 0) sum:=sum+i;
end;
Writeln(sum);
end.
Var a: array [1..5] of integer;
begin
readln(a[1],a[2],a[3],a[4],a[5]);
write(a[1],',',a[2],',',a[3],',',a[4],',',a[5])
end.
Ответ:если он пришёл в автостанцию озёрное и хочет отправиться в луговое, ещё одна самая близкая автостанция к нему это автостанция "Красное" . Отсюда он может выехать в луговое в 9:20 и приехать в 10:30. А если выехать из Заречное то до призода автобус уже уедит.
Объяснение:
№3 <span>Линий-выносок, размерных линий, полок</span>
Составить алгоритм сложения двух целых чисел B и N, вводимых с клавиатуры. Результат сложения записать в виде переменной P. По данному алгоритму написать программу в Паскале.
Алгоритм
1)алг сложение
цел B,N,P
нач
ввод B
ввод N
P:=B+N
вывод P
кон
Программа в Паскале
1)program summa;
var
B,N,P:integer;
begin
readln(B);
readln(N);
P:=B+N;
writeln(P);
end.