Растровая Графика - это технология представления изображений
Изображение - это изображение представленное растровой графикой
Var A,B,C :real;
time :integer;
begin
Writeln('сколько заработал за лето');
readln(c);
Writeln('стипендия = ');
readln(A);
Writeln('расходы на проживание');
Readln(b);
C:=c+a-b;
while (c>=0) do begin
C:=c+a-b;
b:=b+(b/100*3);
time:=time+1;
end;
writeln('денег хватит на ',time,' месяцев');
<span>end.</span>
Ну алгоритм: просто суммируешь поочерёдно.(можно кубиками нарисовать, но это мне делать не удобно, тем более не сложно)
Вот прога на паскале:
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.
Я у себя не проверял, но должно работать)
Вот решение второго задания.