uses crt; var a:array[1..1000] of integer; i,n,sum:integer; begin write('Введите число: '); read(n); for i:=1 to n-1 do if (i mod 3=0) and (i mod 5<>0) then sum:=sum+i; write(sum); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
