Срочно!!! Пожалуйста!!!
задайте алгоритм выбирается 100 четырехзначных чисел. определить сколько среди них счастливых

1
Комментарий удален
Спасибо но это не то
Комментарий удален
надо линейный алгоритм
алгоитм

Ответы и объяснения

2013-10-21T17:11:22+00:00
Program z;
var mas: array [1..100] of integer;
i, a, b, b1, s: integer;
begin
for i:=1 to 100 do
readln(mas[i]);
for a:=1 to 100 do
begin
b:=mas[i] div 1000 + (mas[i] div 100 - mas[i] div 1000 * 10);
b1:=mas[i] mod 10 + (mas[i] mod 100 div 10);
if b1 = b then s:=s+1;
end;
writeln(s);
end.