Дано 10 целых чисел. Определить, сколько из них меньше заданного числа В.
Нужно полное решение не получается
Ответы
Ответ дал:
0
Язык программирования: PascalABC.NET
program number1;
var
B, a : longint;
k : byte;
begin
readln(B);
k := 0;
for i : byte := 1 to 10 do
begin
readln(a);
if a < B then k := k + 1;
end;
writeln(k);
end.
program number1;
var
B, a : longint;
k : byte;
begin
readln(B);
k := 0;
for i : byte := 1 to 10 do
begin
readln(a);
if a < B then k := k + 1;
end;
writeln(k);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад