Назовем число клевым, если его предпоследняя цифра равна 7. по данным двум числам а и b выведите все клевые числа от a до b в порядке возрастания. ввод вывод 70 72 70 71 72 ввод вывод 160 175 170 171 172 173 174 175 pascal abc

Var a,b,i: integer; begin readln(a,b); for i: =a to b do  if (i mod 100) div 10 = 7 then write(i,' '); end.

Без прелюдий, только основная часть программы:
 While (p<>1)
do begin
readln(p);
{a)} if p mod 7 = 0
then a+=1;
{б)} if (p>10) and (p<=100)
then b+=p;
{в}if (p mod 3 =0) and (p mod 5 = 0)
then s+=p;
end;
...
Это для паскаль ABC или ABC.NET

Минимально 3. переставлять будем двоеточие, начиная со второго слева.

Карочи захоиди в машин маинкросовт ворлд там вы бири первую клетку пишы табель