1.Начало
2.Возьму телеграммы.
3.Проверь, есть ли на них марки. Если нет, то:
Посчитай нужное количество марок.
Наклей марки.
4.Посмотри адрес.
5.Доберись до дома.
6.Постучи в дверь.
7.Отдай телеграмму.
(И несколько раз)
8.Конец.
Надеюсь помогла)))
Это. очень смешно. папа. съел все. апельсины
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrGen(ReadInteger('n='), i -> (i + 1) * 6);
a.Println;
Println('Среднее', a.Average)
end.
<h3>n= 13</h3><h3>6 12 18 24 30 36 42 48 54 60 66 72 78</h3><h3>Среднее 42 </h3>
Program gt;
var n,k,t:integer;
begin
read(n,k);
t:=0;
while n>=k do
begin
n:=n-k;
t:=t+1;
end;
writeln(t);
end.
Начало
взять лопату
почистить снег
положить лопату
Конец