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

Question

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

Mole Kolenochka Ученик (89), открыт 14 часов назад

Answer 1

Костя Ряснянский Ученик (186) 14 часов назад

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

Mole KolenochkaУченик (89) 14 часов назад

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

Answer 2

Abdication Мастер (2197) 14 часов назад

Паскаль:

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Ученик (89) 14 часов назад

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

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

Mole KolenochkaУченик (89) 14 часов назад

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

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

Answer 3

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

Answer 4

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