Var
i, n: integer;
begin
i := 1;
read(n);
repeat
i := i + 1;
if(n mod i = 0) and (n <> i) or (n = 1) then
begin
write('Число ', n, ' не является простым');
exit;
end;
until i = trunc(sqrt(n)) + 1;
write('Число ', n, ' является простым');
end.
Задача
Каждый из 35 шестиклассников является читателем, по крайней мере, одной из двух библиотек: школьной и районной. Из них 25 человек берут книги в школьной библиотеке, 20 – в районной.
Сколько шестиклассников:
1. Являются читателями обеих библиотек;
2. Не являются читателями районной библиотеки;
3. Не являются читателями школьной библиотеки;
4. Являются читателями только районной библиотеки;
5. Являются читателями только школьной библиотеки?
Вот одна, но здесь много вопросов.
Ответ:
program xxxxx;
uses crt;
var
i,c:integer;
f:text;
st,r,c2,c1:string;
begin
readln(c);
assign(f,'mylti.txt');
rewrite(f);
for i:=1 to 10 do
begin
str(i,c1);
str(c,c2);
str(i*c,r);
st:= c2 + ' * ' + c1 + ' = ' + r;
writeln(f,st);
end;
close(f);
end.
Объяснение:
15 mod 2 это 15/2=7.5
Команда mod берет цифры после запятой. Значит ответ - 5