Delphi writeln
Автор Антон Тупиков задал вопрос в разделе Другие языки и технологии
У меня программа в Delphi: Console application и получил лучший ответ
Ответ от Jurijus Zaksas[гуру]
Вместо вот этого: readln(a); if a=4 then begin Writeln('Da'); end else Writeln('Net'); readln; k:=0; repeat readln(a); if a<>4 then writeln('Wrong'); inc(k); until a=4; dec(k); writeln('Right'); writeln('Wrong answers: ',k); readln;
Ответ от Николай[гуру]
1. Воспользуйтесь процедурами и функциями - это резко упростит труд и облегчит чтение и отладку программы 2. заведите переменную обнулите ее в начале в случае правильного ответа выполняйте inc(имя переменной);
1. Воспользуйтесь процедурами и функциями - это резко упростит труд и облегчит чтение и отладку программы 2. заведите переменную обнулите ее в начале в случае правильного ответа выполняйте inc(имя переменной);
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: У меня программа в Delphi: Console application