Предмет: Информатика,
автор: 5elen4
Напишите,пожалуйста, программу для Turbo паскаля,где вводится натуральное число и нужно определить является ли оно простым. вот блок-схема:
начало
ввод a
f:=0
for i:=2 to a-1 ; →f=0→да→'Простое'→нет→'не простое '
a mod i:=0 да→ f:=1
конец
Ответы
Автор ответа:
0
В такой блок-схеме трудно разобраться))
Написал, как понял. Турбо Паскаля у меня нет, не проверял, но должно работать.
program zad1;
uses crt;
var a,i,f:integer;
begin
readln(a);
f:=0;
for i:=2 to a-1 do
if a mod i=0 then f:=1;
if f=0 then writeln('простое') else writeln('не простое')
end.
Написал, как понял. Турбо Паскаля у меня нет, не проверял, но должно работать.
program zad1;
uses crt;
var a,i,f:integer;
begin
readln(a);
f:=0;
for i:=2 to a-1 do
if a mod i=0 then f:=1;
if f=0 then writeln('простое') else writeln('не простое')
end.
Похожие вопросы
Предмет: Геометрия,
автор: KTDR
Предмет: Математика,
автор: gunel20130613
Предмет: Химия,
автор: MariaRaider24
Предмет: Обществознание,
автор: Алeкcaндра