Составить таблицу квадратов на языке паскаль: 1=1 2=4 3=9 100=10000

Var
i:Integer;
Begin 
for i:=1 to 100 do
 Writeln(sqr(i));
end.

ответы:

1) 4 раза

2) 5 раз

Поскольку цикл зависит от переменной x разберём только её:

1. x = 1 проверяем условие цикла 1 < 5 (да) цикл запускается х = 2

2. x = 2 проверяем условие цикла 2 < 5 (да) цикл запускается х = 3

3. x = 3 проверяем условие цикла 3 < 5 (да) цикл запускается х = 4

4. x = 4 проверяем условие цикла 4 < 5 (да) цикл запускается х = 5

5. x = 5 проверяем условие цикла 5 < 5 (нет) цикл не запускается

Следовательно цикл исполнится 4 раза.

При изменении условий на x <= 5

1. x = 1 проверяем условие цикла 1 <= 5 (да) цикл запускается х = 2

2. x = 2 проверяем условие цикла 2 <= 5 (да) цикл запускается х = 3

3. x = 3 проверяем условие цикла 3 <= 5 (да) цикл запускается х = 4

4. x = 4 проверяем условие цикла 4 <= 5 (да) цикл запускается х = 5

5. x = 5 проверяем условие цикла 5 <= 5 (да) цикл запускается х = 6

6. x = 6 проверяем условие цикла 6 <= 5 (нет) цикл не запускается

Следовательно цикл исполнится 5 раз.

1) Пароль в этом коде - "zn4n1j4". Заменить при необходимости.

var

 i: integer;

 s: string;

begin

 i := 1;

 while i <= 5 do

 begin

   readln(s);

   if s = 'zn4n1j4' then

   begin

     writeln('Вход в систему разрешен');

     exit;

   end;

   writeln('Неверный пароль.');

 end;

 writeln('Пароль не был угадан 5 раз.');

end.

2) Используем операцию x mod 10 для получения последней цифры числа и x div 10 для "отбрасывания" последней цифры числа.

var

 x, ans: integer;

begin

 read(x);

 ans := 0;

 while x <> 0 do

 begin

   ans := ans + (x mod 10);

   x := x div 10;

 end;

 writeln(ans);

end.