//PascalABC.Net 3.1 сборка 1200
var
number: integer;
sum, sum_all, k: integer;
begin
repeat
write('Элемент последовательности => ');
readln(number);
if (number mod 10 = 2 ) and (number mod 4 = 0) then sum := sum + number;
if (number <= 100) then k := k + 1;
sum_all := sum_all + number;
until number = 0;
writeln('Сумма всех чисел, которые кратны 4 и заканчиваются на цифру 2 = ', sum);
writeln('Сумма всех = ', sum_all);
writeln('Кол-во чисел, которые не больше 100 = ', k);
end.
1 На вкладці Файл виберіть команду Створити й клацніть плитку Пуста база даних.
2 У поле Ім’я файлу введіть ім’я файлу. Щоб змінити стандартне розташування файлу, натисніть кнопку Знайти розташування для бази даних (поруч із полем Ім’я файлу), відкрийте потрібну папку й натисніть кнопку OK.
3 Натисніть кнопку Створити.
Access створить базу даних із пустою таблицею "Таблиця1", яку потім відкриє у вікні табличного подання даних. Курсор установиться в першій пустій клітинці стовпця Клацніть, щоб додати.
4Щоб додати дані, почніть вводити їх або вставте їх з іншого джерела.