Нефёд
6 год назад
По введённому числу вывести его название (числа только натуральные, от 20 до 99)
ОТВЕТЫ
Lev
Jul 25, 2019
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(Двадцать);
))
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(Двадцать);
))
234
Смежные вопросы:
