Kalepdenm
5 год назад
Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 3. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — максимальное число, оканчивающееся на 3
ОТВЕТЫ
Алим
Jun 29, 2019
Program n1;
var i,a,max,k: integer;
begin
write(кол-во чисел в последовательности: );
readln(k);
write(введите 1 член: );
readln(a);
max:=a;
for i:=1 to k-1 do
begin
write(введите ,i+1, член: );
readln(a);
if (a mod 10 = 3) and (a gt; max) then
max := a;
end;
writeln(искомый член: ,max);
end.
var i,a,max,k: integer;
begin
write(кол-во чисел в последовательности: );
readln(k);
write(введите 1 член: );
readln(a);
max:=a;
for i:=1 to k-1 do
begin
write(введите ,i+1, член: );
readln(a);
if (a mod 10 = 3) and (a gt; max) then
max := a;
end;
writeln(искомый член: ,max);
end.
55
Смежные вопросы:
