Ну алгоритм: просто суммируешь поочерёдно.(можно кубиками нарисовать, но это мне делать не удобно, тем более не сложно)
Вот прога на паскале:
program sym
var p:array[1..12] of integer;
s,i:integer;
Begin
s:=0;
For i:=1 to 12 do
p[i]:=i*i; //если нет уже готового массива
For i:=1 to 12 do
s:=s+p[i];
write(s)
end.
Ну тут кстати массив излишен, если надо просто найти сумму:
program sym1
var s,i:integer;
Begin
s:=0;
For i:=1 to 12 do
s:=s+i*i;
write(s)
end.
Я у себя не проверял, но должно работать)
256 Кбайт=8*1024*256 бит
<span>8*1024*256 бит/512/128=32 бит
</span>2^32=4294967296 цветов
Почему-то есть подозрение, что чего-то в условии не хватает... Ежели что - пишите в личку
<span>1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
<span>#include<iostream>
#include<conio.h>
#include<string>
using namespace std;
int main()
{
int i;
cin >> i;
string s = "Sunday";
string s1 = "Monday";
string s2 = "Tuesday";
string s3 = "Wednesday";
string s4 = "Thesday";
string s5 = "Friday";
string s6 = "Suterday";
switch(i)
{
case 1:
cout << s << endl;
break;
case 2:
cout << s1 << endl;
break;
case 3:
cout << s2 << endl;
break;
case 4:
cout << s3 << endl;
break;
case 5:
cout << s4 << endl;
break;
case 6:
cout << s5 << endl;
break;
case 7:
cout << s6 << endl;
break;
}
getch();
return 0;
<span>}
</span></span></span>
{Файл prog1_13_3.pasЗадача: Даны значения трёх целочисленных переменных a, b, c. Переместить их значения так, чтобы переменная а получила бы исходное значение b, b получила бы значения c, а переменная c - значение a.Автор: Башмаков М. Д., ИТ-11Дата: 15,09,2015} var a, b, c, k: integer;
begin k:=0; {Ввод} writeln('введите переменные a, b, c'); readln (a, b, c); {Перемещенние} k:=a; a:=b; b:=c; c:=k; {Вывод} writeln('а=',a,' b=',b, ' c=',c);end.