Program n_1;
var x, n, s: integer;
begin
x:=-1;
s:=0;
read(x);
if x=0 then writeln('0 0')
else begin
n:=0;
while x<>0 do begin
n:=n+1;
if(x>0) and (x<=22) and (x mod 2 = 0) then s:=s+x;
read(x);
end;
writeln(n, ' ', s);
end
end.
Вот, с тех пор, как я оптимизировал работу со сканером, я полюбил блок-схемы х)
Const n = 40;
var a:array [1..n] of integer;
i:integer;
begin
for i:=1 to 10 do a[i]:=random(21);
for i:=11 to 20 do a[i]:=random(51)-10;
for i:=21 to 30 do readln(a[i]);
for i:=31 to 40 do a[i]:=a[i-2]+a[i-1];
for i:=1 to 40 do write(a[i],' ');
end.
Тестовое решение:
1
2
3
4
5
6
7
8
9
0
13 15 17 14 3 2 20 7 14 8 29 34 28 9 7 32 36 -2 16 22 1 2 3 4 5 6 7 8 9 0 9 9 18 27 45 72 117 189 306 495
1)4 раза
2)х=4 х=6
3)прога закончится так как х<5
4)5 раз
5)0
6)бесконечно много
7)2
8)бесконечно много
Ты мысленно (или карандашом) начинай "отделять" эти цифры, в соответствии с таблицей, где определённый набор чисел - это буквы.
Например:
1) 01(N).10(O).001(E).000(A).11(M).00(нет такого) => не подходит.
И аналогично разбираешь 2,3,4 строчку.