Задание 1. Создание таблицы умножения Требуется создать за несколько минут таблицу умножения для чисел - id1558411220200815 от диана27th 15.08.2020 17:33

Question

Информатика: Задание 1. Создание таблицы умножения Требуется создать за несколько минут таблицу умножения для чисел от 1 Лю 10 и за несколько секунд изменить данную таблицу таким образом, чтобы в ней вычислялись произведения чисел от 11 до 15,5 с шагом (0,5.​

диана27th · Accepted Answer

PascalABC.Net
var
x,y,z:integer;
m:single;
begin
Write('Введите x,y,z: '); Read(x,y,z);
m:=(max(max(3*x,y*z-x),z+x)+6*z)/(-5*min(x,z));
Writeln(m)
end.

Тестовое решение:
Введите x,y,z: 3 6 -2
-0.3

Borland Pascal 7.01
uses Crt;
function max(m,n:integer):integer;
begin if m>n then max:=m else max:=n end;
function min(m,n:integer):integer;
begin if m<n then min:=m else min:=n end;
var
x,y,z:integer;
m:real;
begin
ClrScr;
Write('Введите x,y,z: '); Read(x,y,z);
m:=(max(max(3*x,y*z-x),z+x)+6*z)/(-5*min(x,z));
Writeln(m);
ReadKey
end.

Тестовое решение:
Введите x,y,z: 3 6 -2
-3.0000000000E-01

MOGZ ответил