ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 1209. 1, 10, 100, 1000...

Ошибка компиляции,PASCAL!
Послано Yurij 11 ноя 2018 15:17
Variable "q" does not seem to be initialized
Variable "x" does not seem to be initialized

var a:array of integer;w,x,c:string;q,u,n,i:integer;
begin
read(n);setlength(a,n);
w:='10';c:='1';
for i:=0 to n-1 do
begin
read(a[i]);
if q<a[i] then q:=a[i];
end;
while length(c)<=q do
begin
str(w,x);
c:=c+x;
w:=w+'0';
end;
for i:=0 to n-1 do
begin
u:=a[i];
write(c[u],' ')
end;
end.
Re: Ошибка компиляции,PASCAL!
Послано kor_romko 12 май 2019 03:03
You didn't initialize 'q' and 'x'.
There no 'q:=' or 'x:=' in the code