Var x : integer; sex : char; function numbers(n: integer): string; begin case n of 5: Result := 'пять'; 6: Result := 'шесть'; 7: Result := 'семь'; 8: Result := 'восемь'; 9: Result := 'девять'; 10: Result := 'десять'; 11: Result := 'одиннадцать'; 12: Result := 'двенадцать'; 13: Result := 'тринадцать'; 14: Result := 'четырнадцать'; 15: Result := 'пятнадцать'; 16: Result := 'шестнадцать'; 17: Result := 'семнадцать'; 18: Result := 'восемнадцать'; 19: Result := 'девятнадцать'; 20: Result := 'двадцать'; 21: Result := 'двадцать один'; 22: Result := 'двадцать два'; 23: Result := 'двадцать три'; 24: Result := 'двадцать четыре'; 25: Result := 'двадцать пять'; 26: Result := 'двадцать шесть'; 27: Result := 'двадцать семь'; 28: Result := 'двадцать восемь'; 29: Result := 'двадцать девять'; 30: Result := 'тридцать'; 31: Result := 'тридцать один'; 32: Result := 'тридцать два'; 33: Result := 'тридцать три'; 34: Result := 'тридцать четыре'; 35: Result := 'тридцать пять'; end; end; begin writeln ('Введите пол и количество:'); Readln (sex,x); write('В классе сейчас ', numbers(x)); if sex = 'м' then write(' мальчиков') else if sex = 'ж' then write(' девочек'); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
вставь нужные слова подходящее под определения наименьшее элемент изображение и тд отправьте
А я вот так сделал)
Написано в pascal.abc.net
Var
x : integer;
sex : char;
function numbers(n: integer): string;
begin
case n of
5: Result := 'пять';
6: Result := 'шесть';
7: Result := 'семь';
8: Result := 'восемь';
9: Result := 'девять';
10: Result := 'десять';
11: Result := 'одиннадцать';
12: Result := 'двенадцать';
13: Result := 'тринадцать';
14: Result := 'четырнадцать';
15: Result := 'пятнадцать';
16: Result := 'шестнадцать';
17: Result := 'семнадцать';
18: Result := 'восемнадцать';
19: Result := 'девятнадцать';
20: Result := 'двадцать';
21: Result := 'двадцать один';
22: Result := 'двадцать два';
23: Result := 'двадцать три';
24: Result := 'двадцать четыре';
25: Result := 'двадцать пять';
26: Result := 'двадцать шесть';
27: Result := 'двадцать семь';
28: Result := 'двадцать восемь';
29: Result := 'двадцать девять';
30: Result := 'тридцать';
31: Result := 'тридцать один';
32: Result := 'тридцать два';
33: Result := 'тридцать три';
34: Result := 'тридцать четыре';
35: Result := 'тридцать пять';
end;
end;
begin
writeln ('Введите пол и количество:');
Readln (sex,x);
write('В классе сейчас ', numbers(x));
if sex = 'м' then write(' мальчиков')
else if sex = 'ж' then write(' девочек');
end.