vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.
Ответ дал: Гость
совершенное число это число равное сумме своих делителей отличных от самого числа
var i, s,j : integer;
begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.
Ответ дал: Гость
на паскале:
var
n,s,p: integer;
begin
read(n);
p: =n mod 10;
if p mod 2=0 then writeln ('оканчивается на четную цифру')
else writeln ('оканчивается на четную цифру');
while n> 0 do
begin
n: =n div 10;
s: =s+1;
end;
writeln ('количество цифр в числе', s);
end.
Ответ дал: Гость
решаем относительно a: a=(-6*x2-c)/x4=-6*x2/x4-c/x4
Популярные вопросы