Напишите, пожалуйста, рабочую программу на турбо паскале. Условие :дано число n. Напечатать фразу :"Мы успешно сдали экзамен ",согласовав окончания слова "экзамен" с числом n. Предусмотреть, что 1(больше или меньше) n(больше или меньше)20

Question

Информатика

Haamipvan

4 год назад

Напишите, пожалуйста, рабочую программу на турбо паскале. Условие :дано число n. Напечатать фразу :"Мы успешно сдали экзамен ",согласовав окончания слова "экзамен" с числом n. Предусмотреть, что 1(больше или меньше) n(больше или меньше)20

ОТВЕТЫ

Kiril

Oct 24, 2020

Program naconecto;varn:integer;BEGINreadln(n);if (n>1) and (n<20) then begin writeln('MbI ycneIIIHo cgaJlu ek3aMeH!'); endelse begin writeln('He, HecgaJlu'); end;readln;END.

326