В операторі неповного розгалуження після логічного виразу записують символ «:». Скільки символів потрібно пропустити, щоб розпочати наступний рядок?
1. 4 символи
2. 2 символи
3. не потрібно робити пропуски

Question

Информатика: В операторі неповного розгалуження після логічного виразу записують символ «:». Скільки символів потрібно пропустити, щоб розпочати наступний рядок? 1. 4 символи 2. 2 символи 3. не потрібно робити пропуски

Арбузярик · Accepted Answer

1)
USES CRT;
VAR A:array[1..100] of Longint;
s:integer;
x,i:Longint;
BEGIN
CLRSCR;

Repeat
Writeln('Введите 7-ми значное число');
Readln(x);
i:=x;
s:=0;

while i>0 do
  begin
   i:=i div 10;
s:=s+1;
  end;

  if s > 7 then Writeln('Вы ввели число больше');
  if s < 7 then Writeln('Вы ввели число меньше');

Writeln;
until s=7;

for i:=1 to 7 do
   begin
  A[i]:=x mod 10;
  x:=x div 10;
end;

for i:=1 to 7 do
Write(A[i],' ');

READLN;
END.
Типовые на паскале! массивы дано: n - целое семизначное число, вводится пользователем. проверка на с

Типовые на паскале! массивы дано: n - целое семизначное число, вводится пользователем. проверка на с

MOGZ ответил