FPC/TP/BP переваривают без проблем. Разбирайтесь с PascalABC.NET, это его заморочки, я про него ничего не знаю.
Как вариант:
while not EOLn do
Добавлено через 8 минут
Правда в варианте с EOLn программка должна иметь косячок — если после последнего числа ввести один или больше пробелов, она будет требовать ещё число. Так происходит из-за того, что SeekEOLn пропускает все пробелы, а затем проверяет, достигли ли конца строки. А EOLn проверяет текущую позицию, если там пробел, то следом read будет ждать числа.
Добавлено через 8 часов 21 минуту
А с другой стороны, с EOLn получается интересный хак для ввода данных в несколько строк, достаточно при вводе во всех строках, кроме последней, после последнего числа добавлять один или несколько пробелов (в примере показан подчеркиванием «_»):
1 2 3 4_
5 6 7 8_
9 10 11 12
Подсчитать количество цифр в строке. Паскаль. Пример кода
Общая идея подсчета числа цифр в строке в Паскаль состоит в следующем (сразу приведём здесь код программы):
— в этой программе для считывания значения мы использовали переменную строкового типа.
Паскаль даёт возможность обращения к конкретному символу строки по индексу как к элементу одномерного массива.
подсчитать количество положительных чисел среди чисел a b c паскаль
1)
var a, b, c: integer;
begin
write (‘a, b, c (через пробел) = ‘);
readln (a, b, c);
writeln (‘Всего положительных чисел = ‘, ord(a>0)+ord(b>0)+ ord(c>0));
end.
2)
var a, b, c, s: integer;
begin
write (‘a = ‘);
readln (a);
if a > 0 then s:=s+1;
write (‘b = ‘);
readln (b);
if b > 0 then s:=s+1;
write (‘c = ‘);
readln (c);
if c > 0 then s:=s+1;
writeln (‘Всего положительных чисел = ‘, s);
end.
Как посчитать количество чисел в паскале
Вычисление сумм, произведений и количеств.
Представим себе большую пустую коробку и начнем в нее что-то складывать. Каждый раз в нашей коробке будет то, что там уже есть + то, что мы в нее добавляем.
«То, что там было + то, что пришло» — это и есть правило накопления сумм.
c точки зрения математики в этом мало смысла, но с точки зрения коробки с подарками– очень даже много.
Помним, что вначале коробка чаще всего пустая, поэтому не забываем обнулить ее значение s :=0;
Ввести 5 чисел и вычислить сумму только четных.
Придется добавить проверку на четность, это остаток от деления на 2, получим:
Посчитать общее количество определенных цифр в числах
Просмотров 13.7к. Обновлено 15 октября 2021
Посчитать, сколько раз встречается определенная цифра в введенной последовательности чисел. Количество вводимых чисел и цифра, которую необходимо посчитать, задаются вводом с клавиатуры.
- Запросить у пользователя количество вводимых чисел (n) и цифру для подсчета (d).
- Присвоить счетчику цифр значение 0.
- Выполнить n раз цикл, в теле которого
- запрашивать очередное число,
- пока это число не сократиться до нуля
- извлекать последнюю его цифру и сравнивать с цифрой, которую надо посчитать,
- увеличивать значение счетчика цифр на 1, если сравниваемые цифры совпадают,
- избавляться от последней цифры числа.
- В конце программы вывести количество посчитанных цифр на экран.
Pascal
количество цифр в числе паскаль
var
m: word;
n,d,i, count: byte;
begin
write('Количество чисел: ');
readln(n);
write('Цифра: ');
readln(d);
count := 0;
for i:=1 to n do begin
readln(m);
while m > 0 do begin
if m mod 10 = d then
count := count + 1;
m := m div 10;
end;
end;
writeln('Количество цифр: ', count);
end.
Количество чисел: 6
Цифра: 5
301
8952
155
306
200
541
Количество цифр: 4
Язык Си
#includemain () {
int n,d,m,count,i;
printf("Количество чисел: ");
scanf("%d", &n);
printf("Цифра: ");
scanf("%d", &d);
count = 0;
for(i=0;i< n;i++) {
scanf("%d", &m);
while (m>0) {
if (m%10 == d) count += 1;
m = m / 10;
}
}
printf("Количество цифр: %dn", count);
}
Количество чисел: 4
Цифра: 1
10500
1400
500
201
Количество цифр: 3
Python
количество цифр в числе python (питон)
n = int(input("Сколько будет чисел? "))
d = int(input("Какую цифру считать? "))
count = 0
for i in range(1,n+1):
m = int(input("Число " + str(i) + ": "))
while m > 0:
if m%10 == d:
count += 1
m = m // 10print("Было введено %d цифр %d" % (count, d))
Сколько будет чисел? 5
Какую цифру считать? 0
Число 1: 508
Число 2: 1024
Число 3: 300
Число 4: 10101
Число 5: 15
Было введено 6 цифр 0
КуМир
алг количество цифры
нач
цел m,n,d,i,count;
вывод "Количество чисел: "
ввод n
вывод "Цифра: "
ввод d
count := 0
нц для i от 1 до n
ввод m
нц пока m > 0
если mod(m,10) = d то
count := count + 1
все
m := div(m,10)
кц
кц
вывод "Количество цифр: ", count
кон
Количество чисел: 5
Цифра: 0
1099
8586
2300
15
10
Количество цифр: 4
Basic-256
input "Количество чисел: ", n
input "Цифра: ", d
c = 0
for i=1 to n
input m
while m > 0
if m%10 = d then c = c+1
m = m 10
endwhile
next i
print "Количество цифр: " + c
Количество чисел: 10
Цифра: 4
1234
11
1287
8945
200783
12
84
9600
544
244
Количество цифр: 7
Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введен 0) и подсчет количества введенных положительных и отрицательных чисел.
Решение
1 способ
С использованием оператора repeat.
Так как здесь в явном виде задано условие окончания работы, то воспользуемся оператором repeat.
Код:
program podschet_chisel_1;
var n, k1, k2: integer;
begin
k1:=0;
k2:=0;
repeat
write (‘Введите целое число>>’);
readln (n);
if n>0 then k1:=k1+1;
if n<0 then k2:=k2+1;
until n=0;
writeln (‘Введено:’) ;
writeln (‘положительных чисел — ‘, k1);
writeln (‘отрицательных чисел — ‘, k2)
end.
2 способ
С использованием оператора while.
Имеющееся условие окончания работы можно достаточно просто преобразовать в условие продолжения работы — работа продолжается, пока n ≠ 0. И мы можем воспользоваться оператором while:
Код:
program podschet_chisel_2;
var n, k1, k2: integer;
begin
k1:=0;
k2:=0;
while <>0 do
begin
write (‘Введите целое число>>’);
readln (n);
if n>0 then k1:=k1+1;
if n<0 then k2:=k2+1;
end;
writeln (‘Введено:’) ;
writeln (‘положительных чисел — ‘, k1);
writeln (‘отрицательных чисел — ‘, k2)
end.
Опубликовано: 27.03.2018
Обновлено: 12.03.2020