Операция div - это целочисленное деление. с = a div b - такая запись означает, что число а будет поделено на b и в переменную с запишется только целая часть от деления. 25 div 4 = 6. 25 div 5 = 5.
Операция mod наоборот находит не целую часть от деления, а остаток. Т.е. тут отбрасывается целочисленная часть деления. 25 mod 4 = 1 (т.к. если 25 разделить на 4, то получим 6 целых и 1 в остатке)
Теперь по заданию:
при 25 и 4
25 div 4 = 6. 6 <> 4 → A:=25 mod 4 = 1. Ответ 1
при 25 и 5
25 div 5 = 5. 5 = 5 → A:=25 div 5 = 5. Ответ 5
Ответ:1) Ссылки - Добавить текст, выбираем уровень
2) Оглавление - Автособираемое оглавление,
3) Выделяете текст который необходимо внести в содержание
4) Файл – Ссылки- Автооглавление
Объяснение:
// PascalABC.NET 3.4, сборка 1767 от 27.08.2018
// Внимание! Если программа не работает, обновите версию!
uses GraphABC;
procedure ColorPrint(a: array[,] of integer);
begin
var s := a.ElementsByRow;
var (min, max) := (s.Min, s.Max);
var DefColor := FontColor;
font.Name := 'Courier New';
for var i := 0 to a.RowCount - 1 do
begin
for var j := 0 to a.ColCount - 1 do
if a[i, j] = min then
begin
Font.Color := clRed;
Write(a[i, j]:4);
Font.Color := DefColor
end
else
if a[i, j] = max then
begin
Font.Color := clGreen;
Write(a[i, j]:4);
Font.Color := DefColor
end
else Write(a[i, j]:4);
Writeln
end
end;
begin
var a := MatrRandom(5, 5, -10, 10);
ColorPrint(a)
end.
Алг Числа
нач
цел a, b, c, s, p
вывод "Введите три числа", нс
ввод a, b, c
s:=a+b+c
p:=a*b*c
вывод a,"+",b,"+",c,"=",s,нс
вывод a,"*",b,"*",c,"=",p,нс
кон
