program shet;
uses crt;
var h, d: integer;
begin
writeln('Enter H');
readln(h);
writeln('Enter D');
readln(d);
if (h mod d = 0) then writeln(h div d)
else writeln(h mod d);
end.
Объяснение:
program shet;
uses crt;
var h, d: integer; // создаем переменные
begin
writeln('Enter H');
readln(h); // считываем к клавиатуры h
writeln('Enter D');
readln(d); // считываем с клавиатуры d
if (h mod d = 0) then writeln(h div d) // если h делится на d без остатка печатаем частное от деления
else writeln(h mod d); // иначе печатаем остаток от деления
end.
5. class имя класса: список_базовых_классов
{список_компонентов_класса};
6. Поскольку конструкторы не наследуются, при создании производного класса наследуемые им данные-члены должны инициализироваться конструктором базового класса. Конструктор базового класса вызывается автоматически и выполняется до конструктора производного класса. Если наследуется несколько базовых классов, то их конструкторы выполняются в той последовательности, в которой перечислены базовые классы в определении производного класса. Конструктор производного класса вызывается по окончании работы конструкторов базовых классов. Параметры конструктора базового класса указываются в определении конструктора производного класса. Таким образом происходит передача аргументов от конструктора производного класса конструктору базового класса.
public class A
{
public virtual void DoWork ()
{
Console.WriteLine("class A");
}
}
public class B: A
{
public override void DoWork ()
{
Console.WriteLine("class B");
}
}
Здесь есть 2 класса: A — предок, B — потомок. В классе A объявлен метод
public virtual void DoWork ()
ключевое слово virtual говорит о том, что этот метод может быть переопределен в потомке
var
a, b, c: integer;
s: real;
begin
writeln('Введите три числа');
readln(a);
readln(b);
readln(c);
s := (a + b + c) / 3;
writeln('Среднее арифметическое трех введенных чисел равно ', s);
end.