ТЕСТ ПО ИНФОРМАТИКЕ
При наполнении страниц сайта информационными материалами следует придерживаться следующих рекомендаций:
1 Не пишите слишком коротких текстов. Текст разбивайте на большие абзацы, отделяя их друг от друга пустыми строками.
2 В каждом абзаце используйте одни и те же приёмы форматирования.
3 Размещайте на странице слишком много информационных и художественных блоков.
4 Названия пунктов меню делайте краткими; недопустимо растягивание названия пункта на несколько строк.
5 Ставьте точку в названиях сайта и страниц, если они состоят из одного предложения.
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.