3 года назад

Вывести простые числа в диапазоне от 1 до 100 (pascal)

1 ответ:

Roman19823 года назад

0 0

//Pascal

var
i, k, j: byte;
begin
for i := 2 to 100 do
begin
    k := 0;
    for j := 2 to i div 2 do
      if i mod j = 0 then
        k := k + 1;
    if k = 0 then
      write(i, ' ');
end;
end.

Читайте также

У исполнителя Вычислитель две команды,которым присвоены номера: 1) Подели на 2; 2) Вычти 1. Первая из них уменьшает число на эк

Илья133331

77-->18
77-1=76 (2)
76/2=38 (1)
38/2=19 (1)
19-1=18 (2)
Ответ 2112

0 0

4 года назад

Самораспаковывающийся архив это?

Марена

Это файл, объединяющая в себе архив и исполняемый код для его распаковки. Такие архивы, в отличие от обычных, не требуют отдельной программы для их распаковки (получения исходных файлов, из которых они созданы), если исполняемый код можно выполнить в указанной операционной системе. Это удобно, когда неизвестно, есть ли у пользователя, которому передаётся архив, соответствующая программа распаковки.

0 0

4 года назад

ДАЮ СЕ БАЛЛЫ, ШО ЕСТЬ (AνB) & (ÃνB) Ã - это знак инверсии, просто символа, который нужен - нет, это максимально похоже на не

Сергей1703

$\displaystyle (A\lor B) & (A\lor\overline B)=(A+B)(A+\overline B)= \\ 
AA+A\overline B+AB+B\overline B=A+A\overline B+AB+0= \\ 
A(1+\overline B+B)=A$

0 0

4 года назад

A := 336 b := 8 a := a div b d := a mod b

sonoscape [50]

A:=336/8=42 div - это челочисленое деление

d:= 0
Program First;
var
A, b, a, d : integer;
begin
A:= 336;
b:= 8;
a:= A div b;
d:= A mod b;
writeln(a, d);
end.

0 0

4 года назад

Составить программу PASCAL - калькулятор, которая запрашивает тип арифметической операции: 1-сложение, 2-вычитание, 3 - умножени

Наталия15022011

Var A,B:real;
C:integer;
Begin
WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
ReadLn(C);
While C <> 0 do
   Begin
   Write('Введите два числа: ');
   ReadLn(A,B);
   Write('Ответ: ');
   Case C of
   1:WriteLn(A+B);
   2:WriteLn(A-B);
   3:WriteLn(A*B);
   4:WriteLn(A/B);
   End;
   WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
   ReadLn(C);
   End;
WriteLn('Пока!');
End.

Вывод результат, точно как в условии:

Var A,B:real;
    C:integer;
Begin
WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
ReadLn(C);
While C <> 0 do
   Begin
   Write('Введите два числа: ');
   ReadLn(A,B);
   Write('Ответ: ');
   Case C of
   1:
     if B < 0 then WriteLn(A,B,'=',A+B)
     else WriteLn(A,'+',B,'=',A+B);
   2:
     if B < 0 then WriteLn(A,'+',-B,'=',A-B)
     else WriteLn(A,B,'=',A-B);
   3:
     if B < 0 then WriteLn(A,'*(',B,')=',A*B)
     else WriteLn(A,'*',B,'=',A*B);
   4:
     if B < 0 then WriteLn(A,':(',B,')=',A/B)
     else WriteLn(A,':',B,'=',A/B);
   End;
   WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
   ReadLn(C);
   End;
WriteLn('Пока!');
End.

Пример:

1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход
4
Введите два числа: 4
-2.5
Ответ: 4:(-2.5)=-1.6
1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход
1
Введите два числа: -3
-6
Ответ: -3-6=-9
1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход
0
Пока!

0 0

4 года назад