В первой задаче а:=5
А)а=8
В)а=8
С) остаток от деления 5/14 не знаю, может 0, тогда а:=-9, некоторые считают, что само делимое, т.е 5, тогда а=-4
Д) тоже самое или -7 или -5
//Pascal
var
n, a, b, c: integer;
begin
n := 1;
repeat
repeat
writeln(' Ведите стороны A,B,C ', n, ' - треугольника');
readln(a, b, c);
until ((a > 0) and (b > 0) and (c >0)) and ((a + b) >= c);
writeln('Периметр равен ',a + b + c);
n := n + 1;
until n > 25;
end.
V=1024*1024*7*24=176160768(бит)=22020096(байт)=21504(Кб)=21(Мб)
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (k, p, n) := (0, int64(1), ReadInteger('n ='));
var t: integer;
for var i := 1 to n do
begin
Read(t);
if t mod 3 = 0 then
begin
p *= t;
Inc(k)
end
end;
Write('Произведение ', k, ' элементов равно ', p)
end.
<h2>Пример</h2><h3>n = 7</h3><h3>53 -28 36 174 -600 45 -93</h3><h3>Произведение 5 элементов равно 15728904000</h3>
#include <iostream>
using std::cout;
using std::cin;
using std::endl;
int biggest(int, int); //Функция нахождения большего из 2-ух чисел
int main()
{<span>
int a, b, c;
</span>
<span> cout << "Enter the three numbers: ";
</span><span> cin >> a >> b >> c;
</span>
cout << "Biggest: " << biggest(biggest(a, b), c) << endl;
cin.get();
return 0;
}
int biggest(int x, int y)
{<span>
</span> if(x > y)<span>
</span> {<span>
</span> return x;
}<span>
</span> else<span>
</span> return y;
}