Var a,b,c,r:integer;begin writeln (' vvedite 3 chusla ');read(a,b,c);r:=a+b+c;write (r);end.
Извиняюсь, но первых скольки чисел произведение и каков предел n(если есть)?
Var a, b, c, s: real;
begin
write('Введите a, b: '); readln(a, b);
c := sqrt(a*a + b*b);
s := (a * b) / 2;
writeln('Гипотенуза: ', c, #10, 'Площадь: ', s);
end.
{
cin>>x;в средине цикла считываем х
if(x==15) count++;проверяем на равенство с 15, если равно прибавляем к count один
}
cout<<count; виводим результа
192 =11000000
Целую часть числа переводится из десятичной СС в другую систему счисления - последовательным делением целой части числа на основание системы счисления (для двоичной СС - на 2, для 8-ичной СС - на 8, для 16-ичной - на 16 и т.д.) до получения целого остатка, меньше, чем основание СС.