2 = Джобс & Гейтс = 6.0 млн
1 + 2 = Джобс = 25.0 млн
2 + 3 = Гейтс = 40.0 млн
1 + 2 + 3 = Джобс | Гейтс = 1 + 2 + 2 + 3 - 2 = Джобс + Гейтс - Джобс & Гейтс = 25.0 млн + 40.0 млн - 6.0 млн = 59.0 млн
<span>Если я понял о чем ты, то вот:
var
x, y, b: integer; // описание переменных
begin // начало программы
write ('y = x*b ');
read(x,b); // ввод переменной x,b
if x > 0 </span>// проверка, х больше от 0?<span>
then
y := y * b // если да, то исполняется это
else </span><span>
if x = 0 then </span>//если нет, то это(тут опять же проверка, х равно 0?)<span>
y := 0 // если да то "y" присваивается 0
else
y := abs(x); // если нет то "y" присваивается значение модуль "х"
writeln ('y = ', y); // выводятся значения,
end. // завершение программы</span>
Я уже отвечал вашему однокласснику, видимо ;) Ответ - -16
Гарячий
Здоровий
Поганий
Веселий
Добрий
Великий
Дерев'яний
Жовтий
program perimetr;
uses crt;
var a,b,c:real;P:real;
begin
writeln('ведите число');
read(a,b,c);
P:=a+b+c;
write(p)
end.
а с площадью все тоже самое.