Ориентационно-групповое сознание, объективированное в системе логически и аксиологически связанных идей, теорий, идеалов,

LolaTi LolaTi    1   16.04.2019 23:50    0

Ответы
Olesya15551 Olesya15551  30.05.2020 14:24

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Другие предметы