Помогите с заданием по информатике

Question

Помогите с заданием по информатике

Mole Kolenochka Ученик (77), открыт 1 неделю назад

Answer 1

Костя Ряснянский Ученик (196) 1 неделю назад

Скажи что ПК сломался

Mole KolenochkaУченик (77) 1 неделю назад

надо было сделать месяц назад, я забыл

Answer 2

Abdication Мастер (2211) 1 неделю назад

Паскаль:

var a, s: integer;
begin
s:=0;
readln(a);
while a<>0 do begin
if (a mod 8 = 0) and (a > 9) and (a <100) then
s := s + a;
readln(a);
end;
writeln(s);
end.
Питон:

summi = 0
a = 1
while a != 0:
a = int(input())
if a == 0:
break
if a % 8 == 0 and 9 < a < 100:
summi += a
print(summi)

Mole KolenochkaУченик (77) 1 неделю назад

там другая платформа, кумир

Abdication Мастер (2211) Mole Kolenochka, Платформа? Какая?

Mole KolenochkaУченик (77) 1 неделю назад

кумир, для школьников разработали

Abdication Мастер (2211) Mole Kolenochka, | Двигаемся вверх, пока не дойдем до верхнего края вертикальной стены нц пока не слева свободно вверх кц | Переместимся на одну клетку вниз и закрасим ее вниз закрасить | Двигаемся вправо, пока не дойдем до второй вертикальной стены, по пути закрашивая все клетки нц пока справа свободно вправо закрасить кц

Answer 3

зачем ты сам не гуглишь все есть в интернете просто напиши что нужно и все делай

Answer 4

 использовать Робот 
алг 
нач 
нц пока слева стена 
   вверх 
кц 
вниз 
нц пока справа свободно 
   закрасить 
   вправо 
кц 
закрасить 
кон