Феофилакт хочет купить ракетки и шарики для игры в настольный теннис. Один комплект
ракеток стоит А рублей, один шарик стоит В рублей. У Феофилакта есть С рублей,
С. А. он покупает один комплект ракеток и шарики на оставшиеся деньги. Сколько
шариков купит Феофилакт?
Программа получает на вход три целых числа. А, В, С. Программа должна вывести ответ
на задачу.
Без цыкла и без if​

резец

Объяснение:

Дано:

i = 2 байта

I = 112 бит = 14 байт

Найти:

K

I = K * i

K = I / i

K = 14 / 2 = 7 символов (удалили из сообщения)

Т.к. при вычёркивании названия были удалены ставшие лишними запятая и пробел (2 символа), то слово состояло из

7 - 2 = 5 символов

Название одного из орудий в тексте из 5 символов (букв) - резец

I = K * i

I - информационный объём текстового сообщения (размер файла, содержащего сообщение)

K - количество символов в сообщении

i - информационный вес одного символа (число бит, используемых для записи одного символа)

1 байт = 8 бит

Program Proizvedenie; //Обчислити произведение элементов второго столбца таблиці

var Tabl: array[1..4, 1..6] of Integer; i, j, P: Integer;

begin

P:=1;

For i:=1 to 4 do

For j:=1 to 6 do

begin

Write('Введіть значення елемента масиву ');

Read(Tabl[i,j]); //заповнення масиву цілими числами

end;

For i:= 1 to 4 do

P:= P * Tabl[i,2]; //умножение элементов второго столбца

writeln('Произведение элементов второго столбца= ',P);//виведення відповіді

end. //Кінець програми

Объяснение:

Изменено имя программы и переменной (чтобы не путаться)

Начальное значение переменной теперь 1, т.к. при умножении на 1 произведение не меняется

Т.к. считаем произведение элементов второго столбца, то перебираем строки от 1 до 4 и считаем произведение элементов текущей строки во втором столбце

Комментарии изменены, где необходимо, но на русском