Задачи на паскале из демо вариантов огэ по информатике

 Решение задач по программированию на паскале из  демо вариантов огэ по информатике

В этой статье мы разберем решение задач с номером 20  на паскаль из демо вариантов огэ по информатике
Чтобы успешно решать задачи огэ по программированию на паскале нужно уметь
задавать и вводить с клавиатуры переменные в Паскаль 

использовать цикл for в Паскаль, 
уметь использовать оператор условия if Паскаль, 

Разберем как решать на паскаль задачу огэ по информатике из демо варианта 2020 года
 Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4, но не кратных 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4 и не кратное 7. Количество чисел не превышает 1000. Введённые числа  не превышают 30 000. Программа должна вывести одно число: количество чисел, кратных 4,  но не кратных 7.

В начале программы зададим переменные 
n отвечает за количество элементов в последовательности 
i счетчик цикла
a отвечает за элемент последовательности
k счетчик нужных элементов
В  начале программы введем число элементов последовательности, значению счетчика k присвоим 0
var i,n,k,a: integer;
begin
k:=0;
writeln('введите число элементов');
readln(n);
С помощью цикла for организуем ввод элементов последовательности. Для каждого элемента последовательности в операторе условия if проверяем одновременное выполнение условий делится ли элемент на 4 ( для этого должно выполняться условие a mod 4 =0) и условие, что элемент не делится на 7 (для этого должно выполняться условие a mod 7<>0) Чтобы выполнялись оба условия одновременно , необходимо использовать в операторе условия логическую операцию and/ В случае выполнения обоих условий счетчик k увеличивается на 1 (k:=k+1)
for i:=1 to n do
begin
readln (a);
if (a mod 4=0) and (a mod 7 <> 0) then
begin
k:=k+1;
end;
Полная версия программы на паскаль задачи 20 огэ по информатике из демо варианта 2020 года
var i,n,k,a: integer;
begin
k:=0;
writeln('введите число элементов');
readln(n);
for i:=1 to n do
begin
readln (a);
if (a mod 4=0) and (a mod 7 <> 0) then
begin
k:=k+1;
end;
end;
writeln (k);
end.
Разберем как решать на паскаль задачу огэ по информатике из демо варианта 2019 года
Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся  на 4. Количество чисел не превышает 1000. Введённые числа не превышают  30 000. Программа должна вывести одно число – минимальное число, оканчивающееся на 4. 
В начале программы зададим переменные
n – количество элементов в последовательности
i – счётчик цикла
a – текущий элемент последовательности
min – текущее значение минимального элемента
Задаём количество элементов в последовательности,.
var i,n,s,k, a: integer;
begin
writeln('введите число элементов');
readln(n);
В начале программы текущему значению минимального элемента присвоим знаяение большее максимально возможного например 30001
min:=30001
Чтобы получить последнюю цифру числа в программах на паскаль нужно использовать выражение переменная mod 10
В цикле for вводим с клавиатуры элементы последовательности. С помощью оператора условия if проверяем одновременное выполнение двух условий, равна ли последняя цифра числа 4 (  a mod 10 =4) и является ли данный член последовательности меньше текущего ( a< min) Для одновременного выполнения двух условий используется логическая операция and. Если выполняются оба условия, то текущему минимуму присваиваем значение данного элемента
for i:=1 to n do
begin
readln (a);
if (a mod 10=4) and (a < min) then
begin
min:=a;
end;
end;
Полная версия программы на паскаль задачи 20 огэ по информатике из демо варианта 2019 года
var i,n,min,a: integer;
begin
min:=30000;
writeln('введите число элементов');
readln(n);
for i:=1 to n do
begin
readln (a);
if (a mod 10=4) and (a < min) then
begin
min:=a;
end;
end;
writeln (min);
end.

Перейти к содержанию курса по pascal

Полезно почитать по теме задачи по программированию на паскаль из огэ по информатике

Решение задач на паскаль из огэ по информатике на поиск максимума

Решение на паскале задач огэ по информатике на подсчет суммы и среднего арифметического

Поделиться: