Напишете програма, която въвежда числа от клавиатурата дотогава, докато не се въведе 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 →Напишете програма, която въвежда коефициентите на квадратното уравнение a.x^2+b.x+c=0 и определя дали има два различни реални корени и да се намерят техните стойностти. Напишете програма, която въвежда число два интервала (A, B) и (C,D) и определя дали интервалът (A, B) се съдържа изцяло в интервала (C, D).
Read More →