1) *
******
*****
2)**
т.к. тут 0, то ничего нет
****
***
Var
i, sum: longint;
begin
for i := 1 to 100 do sum := sum + sqr(i);
write(sum);
end.
1)100101,130,36,35,3A 2)111001,210,25,64,9E 3)101001,232,72,156,8B 4)100011,124,78,541,2D
Где рисунок??
Уже второе задание так кидаешь..
Program n1;
var a: real;
begin
readln(a);
if a>10 then write(a)
else if a<3 then write(a+11)
else writeln(a-100);
end.