Блок-схема (с циклом) - в прилагаемом файле.
Программа (с циклом):
var n,m,m1,s,i:integer;
begin
readln(n,m);
m1:=m*60;
s:=m1;
for i:=2 to n do
begin
m1:=m1+10;
s:=s+m1
end;
writeln('s = ',s div 60,' час ',s mod 60,' мин');
end.
Пример:
5 2
<span>s = 11 час 40 мин</span>
Var
a, b, c, max: longint;
begin
readln(a, b, c);
max := a;
if (b > max) then
max := b;
if (c > max) then
max := c;
writeln(max);
end.
15*25,4=381 мм
максимальное пространственное расширение при квадратном экране.
sqrt(381*381/2) - сторона монитора = 269,4
число строк 269,4/0,28~962
пространственное расширение 15 дюймого монитора не более 962 х 962
Var M, N, sumN: integer;
begin
readln(N);
M := N;
sumN := 0;
while (M > 0) do
begin
inc(sumN, M mod 10);
M := M div 10;
end;
M := (N div sumN + 1) * sumN;
if (M < 2*N) then
writeln(M)
else
writeln('нет')
end.
Я считаю что правильный ответ в).Правда...Возможно я ошибаюсь ,ведь я такой же человек как и вы.Я тоже могу ошибиться.Но на данный момент я считаю что правильный ответ в.правда...