<span>5 файла
то что делается при гибернации
</span>
Var a: integer;
begin
//пред условие
read(a);
while a <> 0 do
begin
writeln('*');
read(a);
end;
end.
=====================
var a: integer;
begin
//пост условие
repeat
writeln('*');
read(a);
until a=0
end.
Один бит равен одному символу
Procedure prime(n: integer);
var i: integer;
begin
for i := 2 to round(sqrt(n)) do
if n mod i = 0 then
begin
writeln('Число ', n, ' составное');
exit
end;
writeln('Число ', n, ' простое')
end;
begin
prime(3);
prime(8);
prime(23);
prime(35);
end.
Вывод:
Число 3 простое
Число 8 составное
Число 23 простое
Число 35 составное