Наименьшее такое число равно 105 = 7·15, наибольшее — 994 = 7·142.
Получаем арифметическую прогрессию 105, 112, 119, …, 994. Разность прогрессии равна 7, а количество членов
(994−105):7 + 1 = 142−15+1 = 128.
<span>ОТВЕТ: 128.</span>
program odin; var a,b,sum,razn,proizv,chast:real;
begin
writeln('vvedite a');
readln (a);
writeln('vvedite b');
readln(b);
if (a<>0) and (b<>0) then begin writeln('summa=',a+b:0:0);
writeln('raznost=',a-b:0:0);
writeln('proizvedenie=',a*b:0:0);
writeln('chastnoe=',a/b:0:1);
end
else writeln ('chiso ravno 0');
end.
1)285Кб
2)5 - но могу и ошибиться)
Что........ странная задача вот сижу думаю
Uses crt,graphABC;
var
x,y: integer;
procedure Go(n,m: integer);
begin
clearwindow;
setpenwidth(4);
setbrushcolor(clyellow);
rectangle(150,150,550,350);
setpenwidth(2);
setbrushcolor(clgreen);
rectangle(x-50,y-50,x+50,y+50);
x:=x+n;
y:=y+m;
sleep(1);
redraw;
end;
beginlockdrawing;
setwindowsize(700,500);
hidecursor;
repeat x:=150;
y:=150;
while x<=550 do Go (1,0);
while y<=350 do Go (0,1);
while x>=150 do Go (-1,0);
while y>=150 do Go (0,-1);
until keypressed;
<span>end.
Так сойдет? :)</span>