Написать программу для паскаль через оператор case. для целого числа k от 1 до 99 напечаать фразу "мне k лет", учитывая при этом что при вводе некоторых значений k слово "лет" надо заменить на слово "год" или "года".

210

287

Посмотреть ответы 2

Ответы на вопрос:

конфетка03031

Информатика

4,7(80 оценок)

Program p1; var a: integer; begin write('введите возраст: '); readln(a); case a of 11..14: write('мне ',a,' лет'); else case a mod 10 of 1: write('мне ',a,' год'); 2..4: write('мне ',a,' года'); else write('мне ',a,' лет'); end; end; end.

oksankavdovina

Информатика

4,6(30 оценок)

//прога на pascal`e var a, b, h : double; begin write ('введите a, b, h: '); readln (a, b, h); writeln ('площадь поверхности: ', 2*(a*b+a*h+b*h), ' ед^2; '); write ('объем: ', a*b*h, ' ед^3'); end.