Question

решение задачи на цикл в Паскале. Из рядя целых 2-х значных чисел посчитать ТОЛЬКО ТЕ ЧИСЛА, ЦИФРЫ КОТОРЫХ СОВПАДАЮТ, ОТ 10 ДО 99

Answer 1

uses crt;
var i,z:integer;
begin
clrscr;
i:=0;
while i<100 do
begin
if i mod 11=0 then z:=z+i;
i:=i+1;
end;
writeln('Summa= ',z);
readln();
end.