Program Pr1; uses crt; var a,b,c:integer; Begin clrscr; c:=0; writeln('Vvedite a i b'); readln(a,b); while a<=b do begin if a mod 3=0 then c:=c+1; a:=a+1; end; writeln(c); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
