1) Два треугольника заданы длинами своих сторон. Определить, у какого из них площадь больше (создать процедуру для вычисления площади треугольника по его сторонам – формула Герона).
2) Найти набольший общий делитель чисел A, B, C, D, создав процедуру для нахождения НОД двух натуральных чисел.
var p,i,x,count: integer;
begin
count := 0;
p := 0 ;
for i := 1 to 4 do begin
read (x);
if x >= 0 then begin
p := p*x;
count := count+1
end
end;
if count > 0 then begin
writeln(х );
writeln(p);
end
else
writeln('NO')
end
Переменная p в начале равняется нулю. В эту переменную будет записываться общее произведение неотрицательных чисел, умножая p на каждое неотрицательное число, но при умножении любого числа на 0 произведение будет 0, поэтому нужно в начале присвоить ей единицуВ конце выводится последнее введённое число, а нужно вывести количествоПосле end не стоит точкаПравильный вариант программыvar p,i,x,count: integer;
begin
count := 0;
p := 1;
for i := 1 to 4 do begin
read (x);
if x >= 0 then begin
p := p*x;
count := count+1
end
end;
if count > 0 then begin
writeln(count);
writeln(p);
end
else
writeln('NO')
end.
делаешь по Блок схемам.
например 1 вариант.
Паскаль
1-ая блок схема.
b=12; c=0
2-ая блок схема.
b=4
5-ая блок схема -> Если да то Конец.
Если нет,то:
3-ая блок схема.
с= с+b
b=b-2
4-ая блок схема.
Тут надо решать.
То есть значения из 1 схемы.
Подставляешь по формуле 3 схемы.
Должно получится
с= 0+12= 12
b= 12-2= 10
b=10
по 2 блок схеме b=4,то есть не подходит, итак решаем дальше,пока не получится b=4.
но по условии тебе надо написать чему будет равно "с"
То есть,когда у тебя получается b=4, то "с" у тебя должно будет =36.