Решить : в одной семье было много детей. 7 из них любили капусту, 6 – морковь, 5 – горох, 4 – капусту и морковь, 3 – капусту и горох, 2 – морковь и горох, 1 – и капусту, и морковь, и горох. сколько детей было в семье?

Мы ищем максимальное число, кратное 3. Но в данной программе нет проверки на максимальное число.

Если мы введём кратные числа трём в таком порядке: 24,9,3,

то мы получим ответ 3. Но оно не будет максимальным кратным, т.к 24 должно быть максимальным.

Внёс изменения в программу, добавив переменную max, которая не использовалась.

var n,k,max:integer;

begin

 k := 0;

 repeat

write('Введите числа: ');

readln(n);

if (n mod 3=0) and (n>max) then

 k := n;

 max:=n

 until n=0;

 writeln('Максимальное число кратное 3: ', k);

end.

n - вводимые числа, которые проверяются на кратность 3.

k - переменная, в которую записывается число n, которое кратное 3.

max - записывает в себя максимальное число, кратное трём. В дальнейшем, чтоб цикл не допускал кратные числа n, которые меньше max.

1.Визуализация – представление информации в наглядном виде. Текстовую информацию представляют в виде списков, таблиц, диаграмм

2 Таблицы состоят из строк и столбцов, на пересечении которых образуются ячейки. В ячейках таблиц могут быть размещены данные различных типов (текст, числа или изображения)

3 хз

4 В дальнейшем параметры таблицы можно модернизировать:

– вставлять или удалять строки, столбцы и ячейки;

– изменять ширину столбцов и высоту строк с мыши (перетаскиванием границ) или заданием их точных значений в сантиметрах или процентах;

– изменять размеры отдельных ячеек, разделять их на несколько ячеек или объединять с соседними ячейками.