Дано натуральное число n. определить является ли оно простым или составным. простым называется число, которое не имеет делителей кроме 1 и самого себя. например, 17 и 43 - простые числа.для решения программа с пропущенными строками. необходимо в ответе записать содержание пустых строк, которое сделает программу правильной. количество и расположение строк не менять. program task; uses crt; var n,i: integer; b: boolean; begin repeat write('число='); readln(n); until n> 0; b: =true; пропущена строка надо чтото записать repeat снова пропущена строка и надо что то записать i: =i+1 снова пропущена строка и надо что то записать if (b) then writeln('простое') else writeln('составное'); readlnend. ато я в паскале вообще ноль вот только только начал изучать!
Акбота000000
1
22.05.2019 16:40
0
Другие вопросы по теме Информатика
Марина2808
20.02.2020 12:01
Вова3371346
20.02.2020 11:58
Mixail1510
30.07.2019 20:10
catcot1
15.04.2020 01:47
совуша2007
14.04.2020 12:47
ARDASHEV2019
14.04.2020 12:47
maksdlernerwanemaks
29.05.2019 03:00
tima14priluki
14.11.2020 17:29
1235124
14.11.2020 17:29
Мел228
28.11.2020 09:27
Популярные вопросы
- Наведіть приклади промислових виробництв і послуг, зо визначають...
1 - [Как вы считаете,происходит ли изменение равнин в настоящее время...
2 - Почему несмотря на ценные уловы дни рыбаков казались скучными...
1 - Хітин розташовується в ......
2 - 2. Дано: ∆АВС – прямоугольный, ∠В = 60°, ∠С = 90°, BD = 16 см....
3 - написать вступление на тему Чему учит Дон Кихот надо...
1 - Поставьте слова, заключённые в скобки, в нужном падеже.Согласно...
1 - мне ответить на во какие существуют виды розоцветных ? Где они...
3 - 2.У выражение и подчеркните его коэффициент: а)−5...
2 - Проанализируйте следующие ситуации в соответствии с тремя во экономики...
1
var n,i:longint;
b:boolean;
begin
repeat
write ('Число = ');
readln(n);
until n > 0;
b:=false;
for i:=2 to n div 2 do
if n mod i = 0 then
begin
b:=true;
break;
end;
if (not b) and (n <> 1) then writeln ('Простое') else writeln ('Составное');
readln;
end.