Помогите пж
1) На вход программы подается количество вводимых чисел, а затем сами числа. Определить сколько вводимых чисел кратных 13. Вывести количество этих чисел.
2) На вход программы подается количество вводимых чисел, а затем сами числа. Числа положительные, не превышающие 100. Определить максимальное число в последовательности. Вывести это число.
Ответы
Ответ дал:
0
1)
var
a,i,count:integer;
begin
readln(a);
count:=0;
for i:=1 to a do
begin
readln(a);
if a mod 13 = 0 then
inc(count);
end;
writeln('Count: ',count);
end.
2)
var
a,i,max:integer;
begin
readln(a);
for i:=1 to a do
begin
repeat
readln(a);
if a>100 then
writeln('Error.Repeat');
until a<=100;
if i = 1 then
max:=a
else
if max < a then
max:=a;
end;
writeln('Max: ',max);
end.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад