Напечатать столбиком : a) все целые числа от 10 до 35; b) квадраты все целых чисел от 5 до n; c) третьи степени всех целых чисел от а до 50; d) все целые числа от а до b. использовать оператор while

Uses crt; const a=0;           b=10;           n=15; var i: longint;       rez: longint; begin clrscr; writeln ('task 1: '); for i: =10 to 35 do       writeln(i: 3);       delay (2000); writeln ('task 2: '); for i: =5 to n do       writeln(i*i: 5);       delay (2000); writeln ('task 3: '); for i: =a to 50 do     begin       rez: =i*i*i;       writeln(rez: 7);   end;       delay(2000);   writeln ('task 4: '); for i: =a to  b do       writeln(i: 3); readln; end.

объяснение:

пользователь вводит трехзначное число. программа должна сложить цифры, из которых состоит это число. например, если было введено 349, программа должна вывести на экран число 16, так как 3 + 4 + 9 = 16.

как извлечь отдельные цифры из числа? если число разделить нацело на десять, в остатке будет последняя цифра этого числа. например, если 349 разделить нацело на 10, то получится частное 34 и остаток 9. если потом 34 разделить также, то получится частное 3 и остаток 4; далее при делении 3 на 10 получим частное 0 и остаток 3.

в языках программирования почти всегда есть две такие операции:

1) нахождение целого при делении нацело,  

2) нахождение остатка при делении нацело.

в языке программирования python v.3 первая операция обозначается // (двумя знаками деления), а вторая - % (знаком процента). например:

> > > 34 // 10

3

> > > 34 % 10

4

uses graphabc;

var x,y,i,n,k,x0,y0: integer;

begin

setwindowsize(640, 480);

setpenwidth(3);

line(10, 240, 630, 240);

line(320, 10, 320, 470);

line(620, 235, 630, 240);

line(620, 245, 630, 240);

line(315, 20, 320, 10);

line(325, 20, 320, 10);

n: =10;

for i: =1 to 61 do begin

line(o+i*n, 243, o+i*n, 237);

end;

for i: =1 to 46 da begin

line(317,20 +i*n, 323,20+i*n);

end;

x0: =320;

y0: =240;

k: =50;

for x: =-320 to 320 do

begin

y: =truns(k*sin(x/k);

putpixel(x0+x, y0-y, clred);

end;

textout (50,40; grafic y=sinx');

end.