Правильный ответ г двадцать четыре нажатия!
Копировать его............
Var i,k,x,y,l,m,s:integer;
begin
readln(k);
readln(x);
readln(y);
readln(l);
readln(m);
for i:=1 to k do
begin
s:=x*l;
x:=x+y;
l:=l+m;
end;
writeln(s);
end.
Если нужно, переменные можно вводить в 1 строку через пробел, записав так: readln(a,b,c,d)
Ответа от автора вопроса не поступило. Во вложении приведена блок-схема для следующего деления времени суток:
от 6 до 10 - утро;
после 10 до 18 - день;
после 18 до 23 - вечер;
прочее время - ночь.
1. Локальная сеть .2. 3 .5. Сервер 6. Wi-fi