Решение задач на языке программирования (Подготовка к ОГЭ)

Языки программирования - это формальные языки, предназначенные для записи алгоритмов, исполнителем которых будет компьютер.
Записи алгоритмов на языках программирования называются программами.
Язык Паскаль – универсальный язык программирования.
Никлаус Вирт (род. в 1934 г.) - швейцарский учёный, специалист в области информатики, один из известнейших теоретиков в области разработки языков программирования, профессор информатики (компьютерных наук). Разработчик языка Паскаль и ряда других языков программирования.

Алфавит языка
Алфавит языка программирования Паскаль - набор допустимых символов, которые можно использовать для записи программы.
A, B, C, …, X Y, Z
Алфавит языка Паскаль
Латинские прописные
буквы
Латинские строчные
буквы
Арабские цифры
Специальные
символы
a, b, c,…, x, y, z
0, 1, 2, …, 7, 8, 9
Знаки арифметические,
препинания, скобки и другие

Алфавит языка
В алфавит языка Паскаль включены неделимые элементы (составные символы).
: =
Неделимые элементы
Знак операции
присваивания
Знаки больше или равно,
меньше или равно
> = и < =

Простые числовые типы данных

Структура программы на языке Паскаль
Структура программы
Описание данных
Описание действий
Описание констант, меток и
описание переменных (var)
Начинается словом begin и
заканчивается словом end
с точкой

Структура программы на Паскале
VAR список однотипных переменных: INTEGER;
список однотипных переменных:REAL;
BEGIN READ(список ввода);
READLN(список ввода);
переменная:=арифметическое выражение ;
WRITE(список вывода);
WRITELN(список вывода);
END.

mod
div
/
*
-
+
SIN (x)
COS (x)
SQR (x)
SQRT (x)
ABS (x)
Sin x
Cos x
x 2
|x|
√ x
сложение
вычитание
умножение
деление
деление
нацело
Остаток
от деления
Арифметические операции
Функции
F (x)

Оператор цикла FOR
FOR имя:= выражение1 TO выражение 2 DO оператор
Правило записи оператора IF
IF условие THEN оператор 2 ELSE оператор

Задача 1

Программа (Задача 1)
Var a, i, n, min: integer;
Begin
Writeln (‘Введите количество чисел’);
Readln (n);
min:= 30000;
For i:= 1 to n do
begin
Writeln (‘Введите число’);
Readln (a);
if (a < min) and (a mod 7 =0) then min:=a
end;
Writeln (‘ Миним. число, делящееся нацело на 7 =‘ , min);
Readln
end.

Самостоятельное решение задачи:
Задача 2

Самостоятельное решение задачи:
Задача 3