// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

type
Собака=class

public

procedure Голос;
begin
Writeln('Гав!')
end;
end;

// пример вызова
begin
var Тузик:=new Собака;
Тузик.Голос
end.

0 0

4 года назад

Сделать процедуру максимума и минимума 3 чисел , и их сумму . В паскале

мотоблок

Procedure maxminsum(a,b,c:real);
var
sum,max,min:real;
begin
if (a>b) and (a>c) then max:=a;
if (b>a) and (b>c) then max:=b;
if (c>b) and (c>a) then max:=c;
if (a<b) and (a<c) then min:=a;
if (b<a) and (b<c) then min:=b;
if (c<b) and (c<a) then min:=c;
sum:=a+b+c;
writeln('max = ',max);
writeln('min = ',min);
writeln('sum = ',sum);
end;
var a,b,c:real;
begin
readln(a,b,c);
maxminsum(a,b,c);
end.

0 0

3 года назад

Помогите пожалуйста!! Решается оценка 1-6 задание И вариант 2 1. Запишите приведенное в задании натуральное число в 8-битную яч

Кристина 5674 [14]

Все примеры решать?
я смогу их решить подожди

0 0

4 года назад

В системе счисления с некоторым основанием N число 12 записывается в виде 110n найдите это основание

Lostman [24]

110(n)=12(10)
1×n²+1×n+0=12
n²+n-12=0
D=1+4×12=49
n₁=(-1-7)/2=-4 <0 - основание должно быть натуральным числом
n₂=(-1+7)/2=3
Основание системы счисления 3.

110(3)=12(10)

0 0

4 года назад