Ну алгоритм: просто суммируешь поочерёдно.(можно кубиками нарисовать, но это мне делать не удобно, тем более не сложно)
Вот прога на паскале:
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.
Я у себя не проверял, но должно работать)
B) output the contents of the curent directory.........
Var
s, s1: string;
i: integer;
begin
writeln('введите предложение ');
readln(s);
repeat
i := pos(' ', s);
delete(s, i, 1);
until i = 0;
s1 := '';
for i := length(s) downto 1 do
s1 := s1 + s[i];
if s = s1 then
writeln('это палиндром')
else
writeln('не палиндром');
end.
Код C/C++:
#include <iostream>
int main()
{
int a, count;
std::cin>>a;
for(int i = 0; i < 100; ++i)
{
if(a > 10)
{
count += a%10;
a/=10;
}
else
{
count+=a;
break;
}
}
std::cin>>"\n">>count;
return 0;
}
А вот и нет. Монитор позволяет, а видеокарта может быть в режиме RGBA - Тогда 4 байта. А может быть в режиме 16 цветов, и т.д. ответ того челика не верный. Так что зависит не от монитора, а от видео режима, установленного ОС.