Напишете програма, която въвежда числа от клавиатурата дотогава, докато не се въведе 0 и намира колко от тях са положителни.

var x : real;
Br : byte;
begin
br := 0;
write(‘Enter x= ‘);
readln(x);
while x<>0 do
begin
if x>0 then br := br + 1;
write(‘enter x= ‘);
readln(x)
end;
write(‘br= ‘, br);
end.

Напишете програма, която по въведено цяло положително число N пресмята сумата от реципрочните стойности на първите N естествени числа.

var N, i : integer;
Sum : real;
begin
write(‘Enter N= ‘);
readln(N);
if N<1 then write(‘Error’)
else
begin
Sum := 0;
for i:=1 to N do Sum := Sum+1/i;
write(‘Sum= ‘, Sum)
end
end.
Напишете програма, която въвежда символи дотогава, докато се въведе точка и определя броя на въведените малки латински букви.

Решение публикувано от teacher:
var ch : char;
br : byte;
begin
br := 0;
repeat
write(‘Enter symbol: ‘);
readln(ch);
if (ch>’a’) and (ch<‘z’) then br := br+1;
until ch=’.’;
write(‘br= ‘, br)
end.