По введённому числу вывести его название (числа только натуральные, от 20 до 99)
Answers & Comments
ToshaBolt
Var n : integer; begin write('Введите число '); readln(n); case n of 20 : writeln('Двадцать'); 21 : writeln('Двадцать один'); 22: writeln('двадцать два '); 23 : writeln('Двадцать три'); 24:writeln('Двадцать четыре'); 24:writeln('Двадцать пять'); else writeln('Вы ввели недопустимую число! ') end; end. Чисел брат дофига ну ты понял а если вы кейс не проходил то используй просто if n=20 then write('Двадцать'); ))
1 votes Thanks 1
Mandek
только он сказал не писать так до 99, типо есть какое-то другое ещё решение (кейс прошли)
Answers & Comments
begin
write('Введите число '); readln(n);
case n of
20 : writeln('Двадцать');
21 : writeln('Двадцать один');
22: writeln('двадцать два ');
23 : writeln('Двадцать три');
24:writeln('Двадцать четыре');
24:writeln('Двадцать пять');
else writeln('Вы ввели недопустимую число! ')
end;
end.
Чисел брат дофига ну ты понял
а если вы кейс не проходил то используй просто
if n=20 then write('Двадцать');
))