Цикл выполняется 4 раза, почему? Program zad2; Var c:char; i, n,
Цикл производится 4 раза, почему? Program zad2; Var c:char; i, n, k:integer; begin For i:=1 to 10 do begin read (c); n:=ord(c); If (namp;gt;64) and (namp;lt;91) then k:=k+1; end; Write (k); end.
Задать свой вопрос
После каждого ввода с клавиатуры цикл срабатывает три раза. После нажатия на кнопку Enter дополнительно к введенному символу автоматом вводятся и обрабатываются знаки перевода каретки и конца строчки. После подмены read(c) на readln(c) программка дозволяет ввести 10 знаков. Завершается работа программы выводом числа введенных великих латинских букв.
Можно следить детали работы программы с командой read(с), если ввести дополнительно строчки:
write (i= , i);
writeln( Code (n)).
На рисунке http://bit.ly/2GbulpP показан итог ввода знаков A, a, B, b.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.