0 1 2 3 4 5 10 11 12 13 14
_____________
1.---
2.Робот окажется на клетке B3
Не понятно про "Жесткий" цикл. Но как вариант:
var i:integer;
begin
for i:=-30 to 50 do
if (i mod 3=0) and (i mod 4 =0) and(i<>0 then writeln(i);
end.
На выходе:
-24
-12
12
24
36
48
//PASCAL ABC.NET
var i, a: integer; arr: array [1..10] of integer;
begin for i := 1 to 10 do read(arr[i]); for i := 1 to 10 do begin if arr[i] mod 6 = 0 then a += arr[i]; end; Write(a/10);end.