Var
i,a:integer;
s:real;
begin
for i:=1000 to 3000-1 do
if (i mod 6=0)and(i mod 10=4)then
begin
write(i,' ');{это чтобы посмотреть на числа, эту строку можно убрать}
s:=s+i;
end;
writeln;
writeln('S= ',S);
end.
Ответ:
1.информатика
2.в разных видах;числовая
3.операции;передавать
4.информацию,зрения,размышлений,информацию,наблюдать
1). Когда не знаем, сколько точно будет повторений.
2).
Книга, телевизор, радио, газета,друзья
Ответ:
Python:
n = int(input())
s = 0
for i in range(1, n+1):
s += n
print(s)
C++:
#include <iostream>
using namespace std;
int main(){
int n, s = 0;
cin >> n;
for(int i = 1; i <= n; i++) s += n;
cout << s;
}