ВЕЖБИ ОД Контролна структура (наредбa) за ЦИКЛИЧНО ПОВТОРУВАЊЕ

                                     -  WHILE  DO -

1. ДСПКШ кој ги печати квадратите на сите броеви од 1 до N со чекор 0.5

Решение

program proba;
var i,n:real;
begin
readln(n);
i:=1;
while (i<=n) do
begin
writeln(sqr(i):6:2);
i:=i+0.5;
end;
end.

2. ДСПКШ кој ја печати сумата на квадратите на сите броеви од 1 до N со чекор 0.5

Решение

program proba;
var i,n,s:real;
begin
readln(n);
i:=1;
s:=0;
while (i<=n) do
begin
s:=s+sqr(i);
i:=i+0.5;
end;
writeln(s:6:2);
end.

3. ДСПКШ кој ги печати цифрите на цел број внесен од тастатура

Решение

program proba;
var i,n,cif:integer;
begin
readln(n);
while (n>0) do
begin
cif:=n mod 10;
n:=n div 10;
writeln(cif:6);
end;
end.