#include <iostream>
using namespace std;
int main()
{
<span>int n, as = 0, ap = 1, bs = 0, bp = 1, cs = 0, cp = 1;
</span><span> cin >> n;
</span><span> for (int i = 1; i <= n; i++)
</span><span> {
</span><span> if (i \% 2 == 0)
</span><span> {
</span><span> as += i;
</span><span> ap *= i;
</span><span> }
</span><span> else</span><span>
{
</span><span> bs += i;
</span><span> bp *= i;
</span><span> }
</span><span> if (i \% 3 == 0)
</span><span> {
</span><span> cs += i;
</span><span> cp *= i;
</span><span> }
</span><span> }
</span><span> cout << as << ' ' << ap << ' ' << bs << ' ' << bp << ' ' << cs << ' ' << cp << endl;</span><span> return 0;
</span><span>}</span>
Ответ:
Если не было информации то человек и другие живые существа ничего не узнали о своем мире , а также человек перестал быть любопытным и т.д
//Pascal ABC.NET v3.1 сборка 1219
Const
n=5;
Var
a:array[1..n] of integer;
i,s:integer;
begin
for i:=1 to n do
begin
readln(a[i]);
if a[i]<i then s:=s+a[i];
end;
writeln(s);
end.
Пример ввода:
2
2
1
1
2
Пример вывода:
4
1)
#include <stdio.h>
int main()
{
int i;
for(i=102;i<=198;i=i+3)
printf("%d ",i);
return 0;
}
2)
#include <stdio.h>
int main()
{
int a,b,c,i;
scanf("%d%d%d",&a,&b,&c);
for(i=a;i<=b;i++)
if(i%c==0)
printf("%d ",i);
return 0;
}