<span>uses crt;
var c:char;
begin
clrscr;
write('Введите символ ');
readln(c);
case c of
'0'..'9':write('Это десятичная цифра, ее код ',ord(c));
'A'..'Z':write('Это прописная латинская буква, ее код ',ord(c));
'a'..'z':write('Это строчная латинская буква, ее код ',ord(c));
'+','-','*':write('Это знак арифметического действия, его код ',ord(c));
//убрал знак /, он в спец. символах
';','<','=','>','?','[',']','{','}','\','/':write('Это служебный символ, его код ',ord(c));
else write('Символ не входит в указанный список')
end;
readln
end.</span>
R(0) = 0
R(1) = 0
R(2) = 1
R(3) = R(2) + R(0) + R(2) = 1 + 0 + 1 = 2
R(4) = R(3) + R(1) = 2 + 0 = 2
R(5) = R(4) + R(2) + R(3) = 2 + 1 + 2 = 5
R(6) = R(5) + R(3) = 5 + 2 = 7
R(7) = R(6) + R(4) + R(4) = 7 + 2 + 2 = 11
R(8) = R(7) + R(5) = 11 + 5 = 16
R(9) = R(8) + R(6) + R(5) = 16 + 7 + 5 = 28
<span>R(10) = R(9) + R(7) = 28 + 11 = 39</span>
Ответ:
Объяснение:
program mod7;
var
i:integer;
p:int64;
begin
p:=1;
for i:=1 to 50 do
if i mod 7=0 then p:=p*i;
writeln('Цикл for. p=',p);
///////////////////////////
p:=1; i:=1;
while i<=50 do begin
if i mod 7=0 then p:=p*i;
i:=i+1;
end;
writeln('Цикл while. p=',p);
/////////////////////////////
i:=1;p:=1;
repeat
if i mod 7=0 then p:=p*i;
i:=i+1;
until i>50;
writeln('Цикл repeat. p=',p);
readln;
end.