М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Bazzaevat
Bazzaevat
12.04.2021 13:59 •  Информатика

НА PYTHON: Написать программу, которая выводит ваш возраст в формате: "Вам XX ГОД/ГОДА/ЛЕТ"; нужно чтоб было правильное слово именно, типа "года, год ,лет. БЕЗ СПАМА​

👇
Ответ:
TDashaS
TDashaS
12.04.2021

age = int(input("Введите свой возраст: "))

if (age%10==1) and (age != 11) and (age != 111):

   print("Вам",age,"год")

elif (age%10>1) and (age%10<5) and (age!=12) and (age!=13) and (age!=14):

   print("Вам",age,"года")

else:

   print("Вам",age,"лет")

4,8(46 оценок)
Ответ:
katrinsepp
katrinsepp
12.04.2021

x=int(input())

   if x % 10 == 1 and x!=11 and x%100!=11:

       print('Вам', x, 'год')

   elif 1 < x % 10 <= 4 and x!=12 and x!=13 and x!=14:

       print('Вам', x, 'года')

   else:

       print('Вам', x, 'лет')

Объяснение:

Это проверка на то, какое слово пишем после числа лет:

1 год,

2 года,

3 года.

4 года,

5 лет,

6 лет,

7 лет,

8 лет,

9 лет,

10 лет,

11 лет,

12 лет,

13 лет,

14 лет,

15 лет,

16 лет,

17 лет,

18 лет,

19 лет,

20 лет,

21 год,

22 года,

23 года,

24 года,

25 лет,

26 лет,

27 лет,

28 лет,

29 лет,

30 лет,

...

если год при остатке деления на 100 дает 11, то лет

4,5(89 оценок)
Открыть все ответы
Ответ:
gimnastikgirla
gimnastikgirla
12.04.2021
//1)
Type
ty=array[1..25] of integer;

Var
n,i:integer;
ar:ty;

procedure sortbutmeh(var ar:ty;n:integer);
Var
i,j,c:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if ar[i]<ar[j] then
begin
c:=ar[i];
ar[i]:=ar[j];
ar[j]:=c;
end;
end;

begin
randomize;
readln(n);
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(100);
write(ar[i]:4);
end;
sortbutmeh(ar,n);
writeln;
writeln('Array after sortbutmeh()');
for i:=1 to n do
write(ar[i]:4);
end.

//2)
Var
n:integer;

procedure ned(n:integer);
begin
case n of 
1:writeln('Понедельник');
2:writeln('Вторник');
3:writeln('Среда');
4:writeln('Четверг');
5:writeln('Пятница');
6:writeln('Суббота');
7:writeln('Воскресенье');
end;
end;

begin
readln(n);
ned(n);
end.

//3)
Var
s:string;

function lengthbutmeh(s:string):integer;
begin
while pos(' ',s)<>0 do
delete(s,pos(' ',s),1);
lengthbutmeh:=length(s);
end;

begin
readln(s);
writeln(lengthbutmeh(s));
end.
4,5(65 оценок)
Ответ:
kristina758
kristina758
12.04.2021

Лишние словосочетание выделено жирным шрифтом :

а. Формирование у пользователей компьютера навыков грамотной постановки задач, возникающих в практической деятельности, для их решения с компьютера.

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

в. Формирование у пользователей компьютера навыков печати десятипалым методом.

г. Формирование у пользователей компьютера умения грамотно интерпретировать результаты решения практических задач с компьютеров и применять эти результаты в практической деятельности.

4,4(42 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ