program ThirdHundredNumbersEndingInSeven; var i, count: integer; begin count := 0; for i := 200 to 299 do begin if i mod 10 = 7 then begin write(i, ' '); count := count + 1; end; end; writeln; writeln('Total numbers ending in seven in the third hundred: ', count); end.
program ThirdHundredNumbersEndingInSeven;
var
i, count: integer;
begin
count := 0;
for i := 200 to 299 do
begin
if i mod 10 = 7 then
begin
write(i, ' ');
count := count + 1;
end;
end;
writeln;
writeln('Total numbers ending in seven in the third hundred: ', count);
end.