1. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 9. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 9.
2. Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 8. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 8.
Ответы на вопрос
Ответил petyaGavrikov
0
1.
var n,a,min,i:integer;
begin
write('n = ');
readln(n);
min:=999999;
writeln('Вводите числа:');
for i:=1 to n do
begin
readln(a);
if (a mod 9=0)and(a<min) then min:=a;
end;
writeln('min = ',min);
end.
Пример:
n = 5
Вводите числа:
25
99
30
18
87
min = 18
2.
var n,a,s,i:integer;
begin
write('n = ');
readln(n);
s:=0;
writeln('Вводите числа:');
for i:=1 to n do
begin
readln(a);
if abs(a) mod 10=8 then s:=s+a;
end;
writeln('s = ',s);
end.
Пример:
n = 5
Вводите числа:
41
18
25
98
64
s = 116
var n,a,min,i:integer;
begin
write('n = ');
readln(n);
min:=999999;
writeln('Вводите числа:');
for i:=1 to n do
begin
readln(a);
if (a mod 9=0)and(a<min) then min:=a;
end;
writeln('min = ',min);
end.
Пример:
n = 5
Вводите числа:
25
99
30
18
87
min = 18
2.
var n,a,s,i:integer;
begin
write('n = ');
readln(n);
s:=0;
writeln('Вводите числа:');
for i:=1 to n do
begin
readln(a);
if abs(a) mod 10=8 then s:=s+a;
end;
writeln('s = ',s);
end.
Пример:
n = 5
Вводите числа:
41
18
25
98
64
s = 116
Новые вопросы