на языке Паскаль.
uses crt;var a:array[1..1000] of integer; i,n,sum:integer;beginwrite('Введите число: ');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
если mod (а,10) = div (mod (а,100),10) то
б:=б+1
вывод "Да"
выход
всё
а:=div (а,10)
кц
если б=0 то вывод "Нет" все
кон