Предмет:
ИнформатикаАвтор:
pocketsbentleyvar N,k:integer;
s:string;
BEGIN
readln(N,k);
case k of
0: s:='zero';
1: s:='one';
2: s:='two';
3: s:='three';
4: s:='four';
5: s:='five';
6: s:='six';
7: s:='seven';
8: s:='eight';
9: s:='nine';
end;
for k:=1 to N do
writeln(s);
end.
Автор:
doroteaДобавить свой ответ
Предмет:
ЛитератураАвтор:
maleahaq2lОтветов:
Смотреть
Предмет:
Русский языкАвтор:
jordan1odtОтветов:
Смотреть