Регистрация
zhukovaalisa401
09.10.2020 22:20
Информатика
Есть ответ 👍

В некотором списке записана информация о годе рождения каждого из N человек. Определить наибольший порядковый номер самого младшего по возрасту человека (считая с 1). Входные данные

В первой строке задается число N - число человек (0

Выходные данные

Выведите наибольший номер самого младшего человека

, дам!

274
305
Посмотреть ответы 1

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

krohaaaaaaaa
krohaaaaaaaa
4,6(55 оценок)
1) var  i, d, c: integer; begin c: =0; readln(d); for i: =1 to d do if (i mod 3 = 0) and (i mod 2< > 0) and (d mod i = 0) then  c: =c+i; writeln(c); end. 2) var  i, d, c: integer; begin i: =0; c: =0; readln(d); while i< =d do if (i mod 3 = 0) and (i mod 2< > 0) and (d mod i = 0) then begin c: =c+i; i: =i+1; end; writeln(c); end. 3) var  i, d, c: integer; begin i: =0; c: =0; readln(d); repeat if (i mod 3 = 0) and (i mod 2< > 0) and (d mod i = 0) then begin c: =c+i; i: =i+1; end; until i< d; writeln(c); end.

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