протабулировать функцию y=sinx+cosx
на промежутке [0,..10] с шагом 0,2. В Exel.

ответ есть в таблиці Excel

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.

грубо и сердито:

var c: longint;

begin

  read(c);

  c: =c mod 10;

  c: =sqr(c);

  writeln(c);

end.