Var
n, i : longint;
begin
readln(n);
for i:= 2 to n do
if (i mod 2 <> 0) and (i mod 3 = 0) then
begin
write(i);
write(' ');
end;
end;
end.
Информацией,команды из окружающего мира называются информацией,
35-6=29
29-20=9 любят только кино
15-9=6 любят и кино, и дискотеки
1 и 5
3
5
2
4
Все вроде так у меня просто по икт 5, но вроде все
Var
n,k,sum:integer; s,s1:string;
begin
write('n = '); readln(n);
s:='';
sum:=0;
while (n>0)and(n mod 2 = 0) do
begin
k:=n mod 10;
str(k,s1);
s:=s1+'+'+s;
sum:=sum+k;
n:=n div 10;
end;
if s<>'' then s[length(s)]:='=';
writeln(s,sum);
end.
Пример:
n = 1784
8+4=12