Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
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