Var
a,b,c,n: real;
begin
writeln ('введи три числа');
readln(a,b,c);
n:=0;
if a<0 then n:=n+1;
if b<0 then n:=n+1;
if c<0 then n:=n+1;
if n>0 then writeln ('среди трех чисел ', n, ' отрицательных')
else
if n=0 then writeln ('среди трех чисел нет отрицательных');
end.
В твоем теле скапливается всё, что принимал из вне. Ты можешь его сохранить, как самый настоящий храм или же превратить в СИЗО.
Начало
• Объявление целочисленной переменной со значением 1
• Объявление переменной с плавающей точкой со значением 1.4
• Присвоение значения переменной а равное 1.4 * 1 + (1/1.4) [2.1142857142857143]
• k?
• Вывод а (2.1142857142857143)
Конец