Самое простое из того, что смог придумать. Перебираем числа до половины необходимого (больше нет смысла) (for i := 2 to number div 2 do) и ищем есть ли делители (number mod i = 0). Выводим сообщение.
var
number, i : integer;
begin
write('Число: ');
readln(number);
for i := 2 to number div 2 do
if number mod i = 0 then
begin
writeln('Число не является простым, оно делится, как минимум, на ', i);
Exit;
end;
writeln('Число является простым');
end.
Деловая бумага
подтверждает факт или письмо
на нём есть печать
он завершён подписью
Var S:real;
Begin
Write('Введите сумму покупки: ');ReadLn(S);
Write('Сумма покупки с учётом скидки: ');
if S <= 1000 then WriteLn(S)
else if S > 10000 then WriteLn(S*0.8:0:2)
else WriteLn(S*0.9:0:2);
WriteLn('Без учёта скидки: ',S:0:2);
End.
var
i, b:integer;
begin
write('b = ');
readln(b);
for i := 10 to b do
writeln(i, ' * ', i, ' = ', i*i);
readln;
end.
//вторая задача
var
a, b, i:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
for i := a + 1 to b - 1 do
write(i, ' ');
readln;
end.
программa, которая выводит в столбик цифры введённого числа