Напишете програма, която въвежда числа от клавиатурата дотогава, докато не се въведе 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); […]

Read More →

1. Дадени са три числа a, b и c. Да се напише програма, която проверява дали числата могат да бъдат страни на триъгълник и намира лицето му. 2. Напишете програма, която по въведени две числа и знак за операция (+, -, *, /) извършва съответното действие. 3. Дадени са три числа a, b и c. Да се напише […]

Read More →