Начинаешь закрашивать со стеночки а потом таким же темпом циклом НЦ ПОКА СВЕРХУ СНИЗУ ЗАКРАШЕНО ВЛЕВО ВПРАВО)
Вполне всё правильно. Я в компьютерах разбираюсь. Всю систему перекрутила с ног на голову. В итоге знаю всё ( не хвастаюсь )
-----------------------------------
Пссссс.... Тебе удачи и печенек)
//Pascal ABC.NET 3.1 сборка 1256
Var
b,a,m,ar:real;
i:integer;
begin
readln(b,m,a);
i:=0;
ar:=a*m;
while ar>a do
begin
inc(i);
a:=a*(b/100+1);
end;
writeln(i);
end.
Пример ввода:
33
2
100
Пример вывода:
3
Var i,k : integer;
a: array[1..10] of integer;
Begin
for i := 1 to 10 do begin
a[i] := random(7) + 3;
if a[i] = 4 then k:= k + 1;
end;
writeln(k);
End.
begin
var a := ArrRandom(30, 10, 99);
a.println;
writeln(a.Where(x -> (x mod 17 = 0)).DefaultIfEmpty.Aggregate(1, (i, j)-> i * j));
<span>end.
</span>