Напишите,, программу для turbo паскаля,где вводится натуральное число и нужно определить является ли оно простым. вот блок-схема: начало ввод a f: =0 for i: =2 to a-1 ; →f=0→да→'простое'→нет→'не простое ' a mod i: =0 да→ f: =1 конец
В такой блок-схеме трудно разобраться)) Написал, как понял. Турбо Паскаля у меня нет, не проверял, но должно работать.
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.