С клавиатуры вводятся числа до первого введенного 0. Сколько чисел было введено?
Исходные данные: число a (тип integer)
Выходные данные: количество введенных чисел (тип integer)
Первое число введем до цикла. Далее организуем повторение циклом while. Пока число a не равно 0, будем вводить число a и увеличивать счетчик k на 1.
Программа решения задачи на языке Паскаль
var a,k:integer;
begin
k:=0;
readln(a);
while a<>0 do
begin
readln(a);
k:=k+1;
end;
writeln('Введено чисел: ',k);
end.
Результат выполнения программы (запуск 1)
Таблица пошагового выполнения программы (запуск 1)
|
Шаг |
а |
a<>0 |
k |
|
1 |
Ввод 5 |
5<>0 да |
|
|
2 |
Ввод 3 |
|
1 |
|
3 |
|
3<>0 да |
|
|
4 |
Ввод 7 |
|
2 |
|
5 |
|
7<>0 да |
|
|
6 |
Ввод -2 |
|
3 |
|
7 |
|
-2<>0 да |
|
|
8 |
Ввод 0 |
|
4 |
|
9 |
|
0<>0 нет |
|
|
10 |
|
|
Вывод 4 |
Результат выполнения программы (запуск 2)
Таблица пошагового выполнения программы (запуск 1)
Шаг | а | a<>0 | k |
1 | Ввод 0 | 0<>0 нет |
|
2 |
| Вывод 0 |
Комментариев нет:
Отправить комментарий