Цикл выполняется 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.
Цикл выполняется 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.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы