Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Readln(x, у);






if у > x then begin

z: = x; x: = у; у: = z;

End;

a: = x; b: = y;

while b > 0 do begin

r: = a mod b;

a: = b;

b: = r;

End;

Writeln(a);

Writeln(x);

Write(у);

End.

41) Ниже записан алгоритм. Укажите наименьшее из таких чисел N, при вводе которых алгоритм напечатает 17.

var N, q, i: integer;

Begin

Read(N);

for i: =1 to N-1 do begin

if N mod i = 0 then q: =i

End;

Write(q)

End.

 

42) (https://ege.yandex.ru) Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите, сколько есть таких чисел , при вводе которых алгоритм печатает сначала 2, а потом 12.

var x, a, b: integer;

Begin

Readln(x);

a: =0; b: =1;

while x > 0 do begin

a: = a + 1;

b: = b * (x mod 10);

x: = x div 10;

End;

Writeln(a); write(b);

End.

43) (https://ege.yandex.ru) Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наибольшее из чисел , при вводе которых алгоритм печатает сначала 2, а потом 8.

var x, a, b: integer;

Begin






© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.