begin Write('Введите через пробел два положительных числа: '); Read(a,b); if b>a then begin t:=a; a:=b; b:=t end; repeat a:=a/b until a<1; Writeln(a) end.
Пример Введите через пробел два положительных числа: 1.7 153.4 0.760915000615007
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) begin var n := readinteger('Размер массива '); //Для теста заполним массив сл. числами var a := arrrandom(n); a.Println; var x:=readinteger('Введите число Х'); if x in a then writeln('массив содержит число ', x) else writeln('массив не содержит число ', x) end.
Тест №1 Размер массива 10 96 14 36 84 55 1 74 99 72 20 Введите число Х 14 массив содержит число 14
Тест №2 Размер массива 10 59 9 8 98 75 34 52 63 62 17 Введите число Х 55 массив не содержит число 55
ИП0 1 - x<0 22 ИП0 ИП1 / П0 ИП0 С/П