Дана непустая последовательность различных натуральных чисел, за каторой следует 0. Определить порядковый номер 0
5-9 класс
|
var
c, tmp : integer;
begin
c := 0;
tmp := 1;
repeat
read (tmp);
inc (c);
until tmp = 0;
writeln (c);
end.
var i:integer;
c:char;
begin
while c<>'0' do begin
readln(c);
inc(i);
end;
writeln(i);
end.
Другие вопросы из категории
Читайте также
N, Написать ему выводящую на экран последовательность натуральность натуральных чисел отN до 1, номер 3 Даны натуральные числа N и К.Написать программу выводящую на экран последовательность из N чисел , каждое из которых равно К хотя бы что нибудь решите помогите очень надо!!!!!!!!!
натуральные числа A , B, где B>A. Напишите программу последовательность натуральных чисел от A до B, включающая A и B.
Пожалуйста помогите !!!!!!!!
количество введенных данных неизвестно, последовательность чисел заканчивается числом 0. На Паскале
(0 является признаком окончания последовательности и в последовательность не входит).
Найти и напечатать:
1. Сумму всех чисел, больших Х (значение Х вводится с клавиатуры).
Если таких чисел нет, то напечатать «Таких чисел нет»
2. Количество четных чисел
д количество чисел в последовательности, а затем сами числа.Количество чисел не превышает 1000. Введённые числа не превышают 30 000.Программа должна вывести одно число – количество двузначных чисел в заданной последовательности натуральных чисел.