В первом мы повторяем количество раз от 6 до 12 ,то есть 10+10+10+10+10+10 ,ответ будет 60
а во втором мы ищем нужное нам значения начиная с 1 , в условии написано ,если Dat(k)<25 то мы присваем m этот Dat, то есть ответ 20
4+13, 5+12, 6+11, 7+10, 8+9 все равны по 17, умножить это на 5.
Можешь не благодарить
var
a,n:integer;
begin
readln(a);
while a<>0 do
begin
if (a mod 5=0)or (a mod 7=0)then inc(n);
readln(a);
end;
writeln(n);
end.
по-моему в 1950 . . .. . .
1)pascal
2)C++
3)ассемблер
4)python
5)java три последних посмотрел по интернету но вроде всё сходится