Добавлена поддержка
ЭЧ/Ech (ex-Escapechan) и Ежчана (
ejchan.net,
ejchan.site). Набегаем, тестируем архивацию,
сообщаем о замеченных проблемах.
К сожалению, значительная часть сохранённых до 2024 г. изображений и видео была потеряна (
подробности случившегося). Мы призываем всех неравнодушных
помочь нам с восстановлением утраченного контента!
Мой племяш 12лвл написал программу на паскале в дельфи для кого-то лагеря. Но там автоматическая проверка, и его текст не пропускается. Пишет "неверная программа".
Говорят (члены жюри), что сначала должны идти большие числа - но как он не исправлял, ничего не помогает.
При этом в компилированном виде все работает как надо.
Что тут сделано неправильно?!
Эта прога должна производить математические действия с числами.
п.с. я сам полный 0 в этом. Надеюсь, только я один, и тут сидят профи.
program Project1;
var A,B,C,D,Q,W,E: integer;
T: Text;
begin
B:=0;
D:=0;
E:=1;
assign(T, 'partition.in');
reset(T);
read(T,C);
close(T);
assign(T, 'partition.out');
rewrite(T);
writeln(T,C);
for A := 1 to 30 do
begin
repeat
B:=B+1;
if B>30 then
D:=1;
until (A+B=C) or (D=1);
if (A<C) then
writeln(T,B ,'+', A);
write('');
D:=0;
B:=0;
end;
D:=0;
for Q := 1 to 30 do
begin
for W := 1 to 30 do
Begin
repeat
E:=E+1;
if E>30 then
D:=1;
until (Q+W+E=C) or (D=1);
if (Q<C) and (W<C) and (E<C) then
writeln(T,Q,'+',W,'+',Q);
write('');
D:=0;
E:=0;
End;
end;
close(t);
end.