Сpascal последовательности! найти номер наименьшего положительного числа в последовательности произвольных чисел, вводимых с клавиатуры. остановить обработку при вводе заказанного количества чисел. тип обработки данных - вещественный.
Program p1; var a,b:integer; i,n,x:integer; begin Writeln ('Введите к-во'); readln (n); x:=0; for i:=1 to n do begin Writeln ('Введите число:'); readln (a); if a>=0 then begin
if x=0 then b:=a; if (x>0) and (a<b) then b:=a; x:=x+1;
Сообщение это совокупность знаков, отображающих ту или иную информацию. Передача сообщений (а, следовательно, и информации) на расстояние осуществляется с какого-либо материального носителя, например, бумаги или магнитной ленты или физического процесса, например, звуковых или электромагнитных волн, тока и т.д. Информация — сведения об объектах и явлениях окружающей среды, их параметрах, свойствах и состоянии, которые воспринимают информационные системы (живые организмы, управляющие машины и др.) в процессе жизнедеятельности и работы.
begin Write('Введите через пробел два целых положительных числа- '); Readln(m, n); {Сначала ищем НОК - наименьшее общее кратное} if m = n then begin nok := m; t := m * m end else begin t := m * n; repeat if m > n then m := m - n else n := n - m until m = n; nok := t div m end; {Теперь умножаем НОК на числа натурального ряда, пока не дойдем до величины t=m*n} if nok = t then Writeln('Требуемых чисел нет') else begin i := 1; while (nok * i < t) do begin Write(nok * i, ' '); i := i + 1 end end end.
Тестовое решение: Введите через пробел два целых положительных числа- 8 120 120 240 360 480 600 720 840
Введите через пробел два целых положительных числа- 35 620 4340 8680 13020 17360
Введите через пробел два целых положительных числа- 7 13 Требуемых чисел нет
var a,b:integer;
i,n,x:integer;
begin
Writeln ('Введите к-во');
readln (n);
x:=0;
for i:=1 to n do
begin
Writeln ('Введите число:');
readln (a);
if a>=0 then
begin
if x=0 then b:=a;
if (x>0) and (a<b) then b:=a;
x:=x+1;
end;
end;
Writeln('Наименьшего положительного число: ',b);
end.