A:array[1..10000] of integer; i, n, a, b, k:integer; begin k:=1; readln(n, a, b); for i:=1 to n do readln(a[i]); for i:=a to b do if ((a[i] mod 3)=0) or ((a[i] mod 5)=0) then k:=k*a[i]; writeln(k); readln; end.
1.Как я понял, последовательность вводится с клавиатуры и признак окончания ввода - 0. Значит имеет смысл использовать цикл Repeat 2. Вводимые числа - целые. После этих уточнений можно написать код на PascalABC:
//Вариант с циклом repeat var a, min: integer;
begin min := 555555; repeat readln(a); if ((a mod 10 = 5) or (a mod 10 = -5)) and (a < min) then min := a; until a = 0; writeln(min); end.
//вариант с циклом while var a, min: integer;
begin min := 555555; readln(a); while (a>0) or (a<0) do begin if ((a mod 10 = 5) or (a mod 10 = -5)) and (a < min) then min := a; readln(a); end; writeln(min); end.
1. 10 2. 12 3. 3 4. 22 5. 15 6. 34 7. 3 Часть 2 1. Var n:integer; Begin Write('Введи число '); Readln(n); if (n mod 2) = 0 then write(n,' чётное) else write(n,' нечётное); End. 2. Var a,b:integer; Begin Write('Введи числа '); Readln(a,b); if a>b then Begin Write('a = ',b*a,' b = ',a+b) else write('a = ',a+b,' b = ',a*b); End. 3. Var n:integer; Begin write('Введи двузначное число '); Readln(n); if ((n div 10) = 6) or ((n mod 10) = 6) then write('6 присутствует') else write('6 нет в этом числе'); End.
i, n, a, b, k:integer;
begin
k:=1;
readln(n, a, b);
for i:=1 to n do
readln(a[i]);
for i:=a to b do
if ((a[i] mod 3)=0) or ((a[i] mod 5)=0) then k:=k*a[i];
writeln(k);
readln;
end.