Это задание по оивт.Есть тут умные? Соедините файлы в один.
Для этого создайте новый файл, выполните команду Вставка-Объект-Текст из файла и выберите файл ВВЕДЕНИЕ. Аналогичным образом вставьте файлы АНГЛИЯ и ФРАНЦИЯ. Сохрани те созданный файл под именем ЖУРНАЛ в своей лич ной папке командой Файл-Сохранить; перейдите на вкладку Разметка страницы Вызовите диалоговое окно Параметры страницы, на вкладке По ля установите ориентация — книжная, поля: верхнее – 2 см, нижнее – 2,5 см, левое – 1 см, правое – 2,2 см, пере Плет — 1,3 см, параметры при печати нескольких страниц
зеркальные. На вкладке Размер бумаги установите формат бумаги – А4; для оформления заголовков и подзаголовков используй те инструмент Формат по образцу на вкладке Главная:
название разделов (Введение, На берегу туманного Аль биона, Страна мечты) по центру, установите размер шрифта 12 пт, все прописные, полужирное начертание.
Все остальные заголовки оформите по центру, размер шрифта 11 пт, полужирное начертание; Вызовите диалоговое окно Шрифт вкладка Дополни тельно, установите разреженный интервал между сим волами на 4 пт; форматирование абзацев раздела ВВЕДЕНИЕ; установите у эпиграфа начертание полужирное курсив и размер шрифта — 11 пт с диалогового окна Шрифт; отформатируйте эпиграф: отступ слева – 9,5 см, справа — см, первая строка: отступ- нет, выравнивание-пола- вому краю. Для подписи: выравнивание краю; по правому установите у стихотворения начертание курсив, вырав Нивание: по левому краю и размер шрифта - 11 пт; отформатируйте стихотворение: отступ слева – 5,5 см, справа — (0 см, первая строка: отступ-нет.
a:
INPUT n
IF n < 1 OR INT(n) <> n OR n > 1000 THEN GOTO a
DIM a(n)
h=30000
FOR i = 1 TO n
b:
INPUT a(n)
IF a(n) < 1 OR INT(a(n)) <> a(n) OR a(n) > 30000 THEN GOTO b
IF INT ((a(n) - 4 ) / 10) = ((a(n) - 4) / 10) AND a(n) < h THEN h = a(n)
NEXT i
PRINT h
END
или:
n - количество чисел
i - цикловая переменная
a - натурально число
min - минимальное число, оканчивающееся на 4
Язык програмирования: Паскаль
var
n,i,a,min: integer;
begin
readln(n);
min := 30001;
for i := 1 to n do
begin
readln(a);
if (a mod 10 = 4) and (a < min) then
min := a;
end;
writeln(min)
end.