Запишите число, которое будет напечатано в результате выполнения следующей программы: var s, n: integer; begin s := 0; n := 0; while 2*s*s < 123 do begin s := s + 1; n := n + 2 end; writeln(n) end.

DIM S, N AS INTEGER

S = 0

N = 0

WHILE 2*S*S < 123

 S = S + 1

 N = N + 2

WEND

PRINT N

s = 0

n = 0

while 2*s*s < 123:

 s = s + 1

 n = n + 2

print(n)

var s, n: integer;

begin

 s := 0;

 n := 0;

 while 2*s*s < 123 do

 begin

   s := s + 1;

   n := n + 2

 end;

 writeln(n)

end.

Цикл прервётся тогда, когда будет выполнено неравенство . Найдём наименьшее целое s, при котором оно выполнится. Столько же раз выполнится цикл.

Наименьшее целое s=8 . Тогда n=16 .

задача 1.

var

   a, s : integer;

begin

   writeln('введите числа:');

   while s < 101 do begin

       read(a);

       s += a;

   end;

   writeln('Стоп! Сумма чисел больше 100, s=', s);

end.

задача 2.

var

   h : char;

   n : integer;

begin

   writeln('введите символы:');

   while n < 5 do begin

       read(h);

       if h = 'F' then n += 1;

   end;

   writeln('Стоп! Символ F был введен 5 раз')

end.

задача 3.

var

   a : integer;

begin

   write('Введите число от 1 до 4 : ');

   readln(a);

   if (a = 1) or (a = 2) then begin

       for var i := 3 downto 1 do begin

           for var j := 1 to i do write('*');

           writeln;

       end;

   end

   else if (a = 3) or (a = 4) then begin

       for var i := 1 to 3 do begin

           for var j := 1 to i do write('*');

           writeln;

       end;

   end

   else writeln('вы ввели не правильное число :(');

end.

1) Логическое умножение или конъюнкция (логическое И):
Конъюнкция - это сложное логическое выражение, которое считается истинным в том и только том случае, когда оба простых выражения являются истинными, во всех остальных случаях данное сложеное выражение ложно.
Обозначение: F = A & B.
Таблица истинности для конъюнкции
A&B=F
1&1=1
1&0=0
0&1=0
0&0=0
2) Логическое сложение или дизъюнкция (логическое ИЛИ):
Дизъюнкция - это сложное логическое выражение, которое истинно, если хотя бы одно из простых логических выражений истинно и ложно тогда и только тогда, когда оба простых логических выраженныя ложны.
Обозначение: F = A + B.
Таблица истинности для дизъюнкции
A+B=F
1+1=1
1+0=1
0+1=1
0+0=0
3) Логическое отрицание или инверсия (логическое НЕ):
Инверсия - это сложное логическое выражение, если исходное логическое выражение истинно, то результат отрицания будет ложным, и наоборот, если исходное логическое выражение ложно, то результат отрицания будет истинным. Другими простыми слова, данная операция означает, что к исходному логическому выражению добавляется частица НЕ или слова НЕВЕРНО, ЧТО.
Таблица истинности для инверсии
A неА
1  0
0  1