Показать сообщение отдельно
  (#2 (permalink)) Старый
AlexZir AlexZir вне форума
Member
 
Аватар для AlexZir
 
Сообщений: 1,971
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
Регистрация: 19.08.2007
Адрес: Зея
По умолчанию 02.03.2009, 19:27

Вместо
Цитата:
for i:=1 to 10 do
begin
q:=random (10)-5;
p:=random (10)-2;
write(a,p);
end;
write(b,w);
write(c,e);
наберите
Код:
for i:=1 to 10 do
   begin
   q:=random (10)-5;
   p:=random (10)-2;
g:=random (10)-2;
   write(a,p);
write(b,q);
      write(c,g);
   end;
и не забудьте определить типы соответствующих переменных в разделе var (можно еще упростить решение)

В первом цикле While достаточно оставить только один критерий, так как по условию задачи все исходные файлы одинакового размера.

Также стоит убрать фигурную скобку после end; в конце программы
Ответить с цитированием
Ads