Регистрация
Pharaonua
16.09.2020 01:22
Информатика
Есть ответ 👍

Решите задачу по информатике на Pascal!
Нужно полное и понятное решение.

158
182
Посмотреть ответы 2

Ответы на вопрос:

катялисицина
катялисицина
4,4(16 оценок)

program PredelnieChisla;

var

 A, B, i, j: integer;

 isPrime: boolean;

begin

 write('Введите нижний предел (A): ');

 readln(A);

 write('Введите верхний предел (B): ');

 readln(B);

 for i := A to B do

 begin

   isPrime := true;

   for j := 2 to i div 2 do

   begin

     if (i mod j = 0) then

     begin

       isPrime := false;

       break;

     end;

   end;

   if isPrime then

     write(i, ' ');

 end;

 writeln;

end.

vesnakrasna1
vesnakrasna1
4,8(94 оценок)
Var a,b,c: byte; begin for a: = 1 to 9 do       for b: = a+1 to 9 do               for c: = b+1 to 9 do                       write(a,b,c,' ') end. var     p: real;     a: integer; begin p: =1; repeat read(a); if a mod 2 < > 0 then p: =p*a; until a = 0; writeln('p = ',p) end. var     n: integer; begin write('n = '); readln(n); for n: = 1 to n do       write(n*n,' ') end.

Популярно: Информатика