Программа:
var i: integer;
begin
for i:=10 to 99 do
if abs(i div 10 - i mod 10) = 3 then write(i,' ');
end.
Результат:
14 25 30 36 41 47 52 58 63 69 74 85 96
Книга, телевизор, друзья, газета
1)
var
count, num: integer;
begin
count := 0;
repeat
if (num > 0) and (num mod 2 = 0) then count := count + 1;
read(num);
until (num = 0);
write(count);
end.
2)
var
totalCount, count, num: integer;
begin
totalCount := -1; count := 0; num := -1;
repeat
totalCount := totalCount + 1;
if (num mod 3 = 0) then count := count + 1;
read(num);
until (num = 0);
write((count * 100) / totalCount, '%');
end.