Поделитесь своими знаниями, ответьте на вопрос:
Что такое "вход системы" 2.Что такое "выход системы" 3.Рассмотрим систему "чёрный ящик". Определите что происходит в чёрном ящике, если подать на вход слова: чёрное, белое, фиолетовое, синее , то на выходе получим числа: 1, 1, 3, 0 4.Что является средой для системы 5.Рассмотрим " компьютер " как систему. Опишите что является входом и выходом системы? 6.Для ученика (как система) что является средой? 7." Среда Система " что оказывает влияние? 8.Для системы "школа" что является средой? 9.Рассмотрим " цветок " как систему. Опишите что является входом и выходом системы? 10.Рассмотрим систему "чёрный ящик". Определите что происходит в чёрном ящике, если подать на вход последовательно числа: 7, 11, 16, 32, 41 , то на выходе получим : 15, 23, 33, 65, 83
Мы ищем максимальное число, кратное 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.