// PascalABC.NET 3.3.1611
begin
var sum := 0;
var n := 0;
ReadSeqIntegerWhile(x -> x <> 0).ForEach(x -> begin
n += 1;
if (0 < x) and (x <= 256) and (x mod 2 = 0) then
sum += x;
end);
println('Количество:', n);
println('Сумма:', sum);
end.
Если кузнечик двигался вперёд 2, а назад 1, значит он всё время смесчается на 1 клетку, соответственно он прошел 35 клеток.
Остальные 5 команд он двигаля назад, значит он прошел 6*5=30клеток.
Всё это можно заменить на команду (Вперёд 5)
Ответ: 2
1) пиксель
2) Paint
3) красный, зеленый, синий
4) овал
5) растровая
6) 8 бит
7) количество информации для кодирования цвета точки изображения
8) векторная
9) частота дискретизации звука
x, y = [int(x) for x in input().split()]
if (x**2 + y**2 > 1) and (x**2 + y**2 < 2):
print('In the ring')
else:
print('Out of')
<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)</span>
begin
var a:=ArrRandom(20,2,5); a.Println;
For var i:=2 to 5 do Println('Кол-во',i,'=',a.Where(t->t=i).Count);
Writeln('Средний бал равен ', a.Average:0:2);
end.
Пример:
5 3 5 2 4 3 5 5 5 3 2 2 4 4 2 3 4 3 5 4
Кол-во 2 = 4
Кол-во 3 = 5
Кол-во 4 = 5
Кол-во 5 = 6
Средний бал равен 3.65