Завдання №.2. Сформувати одновимірний масив із 12 цілих . Чисел випадковим чином, значення елементів знаходяться в діапазоні [20:100]. Вивести сформований масив в компоненту
TListBox.
Знайти добуток та кількість тих елементів масиву, які
одночасно є непарними та кратними 3. Всі такі числа
Вивести в окреме вікно — компоненту ТМето.
PASCAL ABC
program z1;
var a,s:integer; //описание переменных
begin
readln(a); //вводим первое число
s:=0; //начальное значение суммы
while a<>0 do //условие ввода (ввод оканчивается нулем)
begin
if (a mod 10=4) and (a mod 6=0) then s:=s+a; //проверка двух условий: первая скобка - оканчивается на 5, вторая - кратно 6
readln(a) //заново вводим число
end;
writeln(s) //вывод суммы, когда весь цикл завершится
end.
P.S не особо понимаю, почему с таким вводом, такой ответ у тебя получается
Пользователь знает ключ, или
пароль, который известен только ему. К этой группе можно отнести и идентификацию через смс-уведомления. При вводе имени и пароля пользователя сервер сравнивает введенные данные
с сохраненными данными. В случае полной идентичности введенных данных появляется возможность войти в систему.
Различают два вида паролей – динамические
и постоянные. Постоянные пароли изменяются
только по требованию пользователя, а динамические пароли изменяются по определенным параметрам. Например, если пользователь забудет
пароль, сервер может предложить ему динамический пароль для входа в систему.
Объяснение: