Переведите на , var k, n, a, amax: integer;
begin
amax:=0;
readln(n);
for k:=1 to n do
begin
readln(a);
if (a mod 5 = 0) and (a>amax) then
amax:=a;
end;
writeln(amax);
end.

Question

Информатика: Переведите на , var k, n, a, amax: integer;beginamax:=0;readln(n);for k:=1 to n dobeginreadln(a);if (a mod 5 = 0) and (a amax) thenamax:=a;end;writeln(amax);end.

leo1233121 · Answer

1) Считаем среднее значение от 100 тетрадей на пятерых человек:
100:5=40 (по 40 тетрадей приходится на каждого)
2) Предполагаем, что значение Коли верно, тогда:
Вася: 52-20=32
Юра: 43-32=11
Саша: 34-11=23
Серёжа: 30-23=7
3) Теперь считаем общее колличество получившихся тетрадей:
20+32+11+23+7=93
Напоминаю, что должно получится 100, следовательно 7 тетрадей не хватает. Именно их мы и должны прибавить. Осталось только понять куда.
4) Начнём с начала. Прибавляем эти 7 тетрадей к Коле:
20+7=27 - Коля. Тогда:
Чтобы узнать, сколько тетрадей у Васи, вычтем из 52(общее кол-во тетрадей Коли и Васи) кол-во тетрадей Коли:
52-27=25 - Вася.
Так же считаем и остальных. Получаем:
Юра: 43-25=18 тетрадей
Саша: 34-18= 16 тетрадей
Серёжа: 30- 16= 14 тетрадей

ОТВЕТ: Коля - 27, Вася - 25, Юра - 18, Саша - 16, Серёжа - 14 тетрадей =)

Переведите на , var k, n, a, amax: integer;beginamax:=0;readln(n);for k:=1 to n dobeginreadln(a);if (a mod 5 = 0) and (a>amax) thenamax:=a;end;writeln(amax);end.

Переведите на , var k, n, a, amax: integer;
begin
amax:=0;
readln(n);
for k:=1 to n do
begin
readln(a);
if (a mod 5 = 0) and (a>amax) then
amax:=a;
end;
writeln(amax);
end.