Program n1; var a: byte; begin readln(a); if a=0 then write('ноль'); if a=1 then write('один'); if a=2 then write('два'); if a=3 then write('три'); if a=4 then write('четыре'); if a=5 then write('пять'); end.
3 votes Thanks 1
evgeniyisaev
я хотел просто проверить правильно ли написал, ошибся только с типом данных, незнал про byte
Answers & Comments
Verified answer
Program n1;var a: byte;
begin
readln(a);
if a=0 then write('ноль');
if a=1 then write('один');
if a=2 then write('два');
if a=3 then write('три');
if a=4 then write('четыре');
if a=5 then write('пять');
end.