Дано натуральное число 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. ато я в паскале вообще ноль вот только только начал изучать!

Ябы так написал: 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.

1)

var    a, b, c, d, f : integer;     s : real; begin

 

    writeln( 'введите стороны треугольника: ' );     write( 'a = ' ); readlln( a );     write( 'b = ' ); readlln( b );     write( 'c = ' ); readlln( c );

    writeln( 'введите стороны прямоугольника: ' );     write( 'd = ' ); readlln( d );     write( 'f = ' ); readlln( f );     s : = (a + b + c) / 2;     s : = sqr( s * (s-a) * (s-b) * (s-c) );     if (d * f) = s then         writeln( 's прямоугольника = s треугольника.' )     else if (d * f) > s then         writeln( 's прямоугольника больше.' )     else         writeln( 's треугольника больше.' );     readln; end.

 

2)

var     m, v, m1, v1 : integer; begin

    writeln( 'введите объем и массу первого тела: ' );     write( 'm = ' ); readlln( m );     write( 'v = ' ); readlln( v );

    writeln( 'введите объем и массу второго тела: ' );     write( 'm = ' ); readlln( m1 );     write( 'v = ' ); readlln( v1 );     if (m / v) = (m1 / v1) then         writeln( 'плотности равны.' )     else if (m / v) > (m / v) then         writeln( 'плотность первого тела больше.' )     else         writeln( 'плотность второго тела больше.' );     readln; end.

 

3)

var    a, b : integer; begin

 

    writeln( 'введите числа: ' );     write( 'a = ' ); readlln( a );     write( 'b = ' ); readlln( b );

    if a mod b = 0 then         write( 'число a является делителем числа b.' );     if b mod a = 0 then         write( 'число b является делителем числа a.' );     readln; end.

ответ:

объяснение:

сейчас александровского реального училища располагается государственный аграрный университет северного зауралья. учебное заведение является региональным центром образовательной деятельности, научного обеспечения и производства наукоемкой продукции в агропромышленном комплексе тюменской области. он участвует в формировании региональной аграрной политики и в выполнении федеральных программ по профилю своей деятельности, которая адаптирована к специфике природных условий и социально- инфраструктуре производительных сил области. в настоящее время в университете обучается более 5000 студентов.