1. Var s,i:integer;
Begin
S:=0;
For i:=1 to 1000 do
If (i mod 5<>0)and (i mod 7 <>0) Then s:=s+1;
Writeln(s);
Readln;
end.
var a: array[1..10] of integer;
i,p: integer;
begin
randomize;
p:=1;
for i:=1 to 10 do begin
a[i]:=random(11)-5;
write(a[i],' ');
if a[i]<>0 then p:=p*a[i];
end;
writeln;
write('p=',p);
end.
Uses Crt;
var
n:integer;
begin
repeat
textcolor(15);
Write('n='); Read(n);
if n=0 then begin
textcolor(LightGreen);
Writeln('Работа завершена');
textcolor(15);
end
else
if (n>9) and (n<100) then begin
n:=n-10;
Writeln('Результат: ',n)
end
else
if (n>99) and (n<1000) then begin
n:=n-100;
Writeln('Результат: ',n)
end
else begin
textcolor(LightRed);
Writeln('Недопустимое значение');
end;
until n=0;
ReadKey { для PascalABC.NET можно удалить эту строку }
end.
4 задание вроде как 1100 но это не точно