БИЛЕТ № 15 Дайте сведения об основных методах создании таблиц MS Access. В программе MS Excel создайте таблицу истенности для выражения “A˅(B ˄ ((А˅C)“. В среде программировании Delphi создайте приложение выполняющее перевод денег (сумы УЗБ) на курсы валют (в доллары, в евро, в рубли ответ нужен

нц пока не сверху свободно

закрасить

вправо

кц

 

нц пока сверху свободно

вправо

кц

 

нц пока справа свободно

закрасить

вправо

кц

 

нц пока не справа свободно

закрасить

вниз

кц

 

нц пока справа свободно

вниз

кц

 

нц пока не справа свободно

закрасить

вниз

кц

 

 

15.2 Решение

 

var k, n, a, amax: integer;

begin

amax:=0;

readln(n);

for k:=1 to n do

begin

readln(a);

if (a mod 5 = 0) and (a>amax) then

amax:=a;

end;

writeln(amax);

end.

 

Для проверки правильности работы программы необходимо использовать следующие тесты:

 

Объяснение: