СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ

Благодаря готовым учебным материалам для работы в классе и дистанционно

Скидки до 50 % на комплекты
только до

Готовые ключевые этапы урока всегда будут у вас под рукой

Организационный момент

Проверка знаний

Объяснение материала

Закрепление изученного

Итоги урока

Решение задания №27 вариант 8

Категория: Информатика

Нажмите, чтобы узнать подробности

Вариант эффективного решения задания №27 вариант 8 В. Р. Лещинер 2020. Особенность задачи в том, что для введенного ряда целых чисел вводится уже известное (потрудитесь подсчитать его) контрольное число, которое может совпасть (или несовпасть) с вычисленным.   

Просмотр содержимого документа
«Решение задания №27 вариант 8»

var n,m1,m2, m11,m22,i,a,r,p:longint;

begin

readln(n);

m1:=0; m2:=0; m11:=0; m22:=0; p:=0;

readln(a);

for i:=2 to n do begin

if am1 then m1:=a;

if (am2)and (a mod 2 =0)then m2:=a;

if (am11) and (a mod 11 = 0) then m11:=a;

if (am22) and (a mod 22 = 0) then m22:=a;

readln(a);

if (m1* a mod 22=0)and(m1*ap) then p:=m1*a;

if (m2* a mod 22=0)and(m2*ap) then p:=m2*a;

if (m11* a mod 22=0)and(m11*ap) then p:=m11*a;

if (m22* a mod 22=0)and(m22*ap) then p:=m22*a;

end;

readln(r);

if p=0 then p:=0;

writeln('вычисленное контрольное значение',p);

if p=r then writeln('контроль пройден') else writeln('контроль не пройден');

end.


Скачать

Рекомендуем курсы ПК и ППК для учителей

Вебинар для учителей

Свидетельство об участии БЕСПЛАТНО!