Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
программа на паскале:
program xxx;
var i, n, s : integer;
begin
write ('введите n =' );
readln (n);
s: =0;
for i: =1 to n do
s: = s+ sqr(i+1);
writeln ('сумма =' , s);
readln
end.
(2)-двоичная,(8)-восьмеричная.1)11011(2)= 33(8)=27(10)=1в(16)2)101111(2)=57(8)=47(10)=2f(16)3)11001100(2)=294(8)=204(10)=cc(16)4)100100111000(2)=4470(8)=2360(10)=938(16)
хай
var a,b,c,d: integer;
read(a,b,c,d);
if (a*b*c*d mod 3 = 0) then
writeln("pravda")
else writeln("nepravda");
Популярные вопросы