Задачи для самостоятельного решения 1. Значения переменных a и b равны a = 4 и b = 6. Определите, сколько раз выполнится цикл, и чему будут равны значения этих переменных после его завершения:
а) while a < b:
a += 1
б) while a < b:
a += b
2.Найдите ошибку в программе:
k = 0
while k < 10:
print( "привет" )
Как её можно исправить?
3. Что будет выведено на экран в результате работы следующего цикла?
а) k = 4
while k < 10:
print( k*k, end=" " )
k += 1
б) k = 12
while k > 3:
print( 2*k-1, end=" " )
k -= 1

var

  x : array [1..15] of integer;

  i : integer;

  min : integer;

  kol_nol : integer;

begin

  kol_nol : = 0;

  for i: =1 to 15 do

  begin

  write ("введите элемент массива: ");

readln(x[i]);

end;

min : = x[1];

for i : = 0 to 15 do

begin

  if (x[i] > 0) then

  begin

  if (x[i] < min) then

  begin

    min : = x[i];

  end;

  end;

  if (x[i] = 0) then

  begin

  inc(kol_nol);

  end;

writeln(min);

writeln(kol_nol);

end;

в одном часе 3600 секунд. за час произойдёт 3600*10^6 операций.

чтобы выполнить их на арифмометре (не завидую тому, кто решится так делать), потребуется

3600*10^6*10 секунд = 10^7 часов или примерно 1141 год

program summa;

uses crt;

var  i : integer; sum: real; beginsum: =0; for i: =1 to 20 do beginsum: =sum+ sqr(i); end; writeln('summa =', sum); end.

вот тебе программа на паскале . она находит сумму квадратов всех натуральных чисел от 1 до 20. вот блок схема. блок схему скину на мыло. напиши мне его и я тебе скину

16-битной кодировке unicode.

один символ  s  =16 бит

количество бит  текстового файла    к= 128000 бит/с * 60 с=  7680000

количество символов к/s=7680000/16  =480000