Решение тут простое, а вот как оформить...наверно блок-схему имеет смысл нарисовать.
Число a - любое натуральное, число b - натуральное четное, т.е. b=2k, где k - любое натуральное число.
Легко видеть, что по результатам шестого шага алгоритма получилось число k. Но мы полагали, что b=2k, поэтому Бим удваивает сообщенное ему число и получает b.
Примеры решений:
1. A=37, B=18
3) 37*2=74 4) 74+18=92 5) 92/2=46 6) 46-37=9 и теперь 9*2=18=B
2. A=4, B=2
3) 4*2=8 4) 8+2=10 5) 10/2=5 6) 5-4=1 и теперь 1*2=2=B
3. A=12345, B=222
3) 12345*2=24690 4) 24690+222=24912 5) 24912/2=12456 6) 12456-12345=111 и теперь 111*2=222=B
1) 45х45=2025, 2025х55=111375 Ответ: в сообщении 111375 символов.
2) 150х1=150 Ответ: 150 байт
3) 60х27=1620 , 1620:810=0.5 Ответ: 0.5 символов.
Var sum,i : Integer;
Begin
sum:=0;
For i:=1 to 10 do sum:=sum+i;
Writeln(sum);
end.
Но проще всего это считать без циклов - одной строкой:
Begin
Writeln((10+1)*10 div 2);
end.
166 дели на 2 43 тоже много раз пок ане получится 1 или 2 в конце
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
type
st=record
ball:real;
nam:string
end;
begin
var n:=ReadlnInteger;
var res:=new st[n];
var buf:st;
for var i:=0 to n-1 do begin
Readln(buf.nam);
buf.ball:=0.0;
res[i]:=buf
end;
loop 6 do begin // по условию тут надо написать 30, 6 - это для примера
var p:=ReadlnString.ToWords;
var id:=res.FindIndex(t->t.nam=p[1]);
if id>-1 then res[id].ball+=p[0].ToReal;
end;
var imax:=res.Select(t->t.ball).ToArray.IndexMax;
res[imax].nam.Println
end.
<u>Пример</u>
3
Леонид
Мария
Константин
18.7 Мария
3.01 Леонид
9.12 Леонид
43.4 Мария
5.3 Константин
0.52 Леонид
Мария