Цикл выполняется 4 раза, почему?

Program zad2;

Var c:char;

i, n, k:integer;

begin

For i:=1 to 10 do

begin

read (c) ;

n:=ord (c) ;

If (n>64) and (n<91) then

k:=k+1;

end;

Write (k) ;

end.

Question

Информатика

Лидоня

9 октября, 07:44

Цикл выполняется 4 раза, почему?

Program zad2;

Var c:char;

i, n, k:integer;

begin

For i:=1 to 10 do

begin

read (c) ;

n:=ord (c) ;

If (n>64) and (n<91) then

k:=k+1;

end;

Write (k) ;

end.

+3

Ответы (1)

Знаете ответ на вопрос?

Витуня · Answer 1

Program zad2;

Var

c:char;

i, k:integer;

begin

k:=0;

For i:=1 to 10 do

begin

readln (c) ;

writeln (ord (c)) ;

If (ord (c) >64) and (ord (c) <91) then

k:=k+1;

end;

writeln ('Results: ', k) ;

end.

Цикл выполняется 4 раза, почему?Program zad2;Var c:char;i, n, k:integer;beginFor i:=1 to 10 dobeginread (c) ;n:=ord (c) ;If (n>64) and (n<91) thenk:=k+1;end;Write (k) ;end.

Цикл выполняется 4 раза, почему?

Program zad2;

Var c:char;

i, n, k:integer;

begin

For i:=1 to 10 do

begin

read (c) ;

n:=ord (c) ;

If (n>64) and (n<91) then

k:=k+1;

end;

Write (k) ;

end.