1.от пользователя вводятся три трехзначных числа,вывести из них,в состав которых входит в состав которых входит наибольшая цифра,встречающаяся в этих числах. 2.дано число (1), определяющее возраст человека (в годах).для этого числа напечатать фразе " мне n лет".учитывая при этом, что при некоторых значения n слово " лет" заменяется на слово "год или года"

186

269

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

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

мартина

Информатика

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

//pascal abc.net v3.1 сборка 1172 //1 var a,b,c,max,i: integer; ca,cb,cc,smax: string; begin max: =-1; readln(ca); readln(cb); readln(cc); for i: =1 to 3 do begin if strtoint(ca[i])> max then begin smax: =ca; max: =strtoint(ca[i]); end; if strtoint(ca[i])> max then begin smax: =cb; max: =strtoint(ca[i]); end; if strtoint(cc[i])> max then begin smax: =cc; max: =strtoint(ca[i]); end; end; writeln(smax); end. пример ввода: 123 456 908 пример вывода: 908 //2 var n,n1: integer; s: string; begin readln(n); n1: =n; if (n=11) or (n=12) or (n=13) or (n=14) then s: ='лет' else begin n: =n mod 10; case n of 0: s: ='лет'; 1: s: ='год'; 2: s: ='года'; 3: s: ='года'; 4: s: ='года'; 5: s: ='лет'; 6: s: ='лет'; 7: s: ='лет'; 8: s: ='лет'; 9: s: ='лет'; end; end; writeln('мне ',n1,' ',s); end. пример ввода: 18 пример вывода: мне 18 лет

кэт324

Информатика

4,4(16 оценок)

var

c: integer;

begin

write('введите цифру '); readln(c);

case c of

0: writeln('ноль');

1: writeln('один');

2: writeln('два');

3: writeln('три');

4: writeln('четыре');

5: writeln('пять');

6: writeln('шесть');

7: writeln('семь');

8: writeln('восемь');

9: writeln('девять');

end;

end.

так что ли?

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.