Rogram z1;
Var n,I,s,k:integer;
Begin
Writeln ('n=');
Readln (n);
S:=0;k:=0;
If n>=100 then
For I:=100 to n do begin
S:=i+s;
K:=k+1;end;
Writeln (s/k);
Readln ;
End.
С Т Е П. А Н
19 20. 6 17 1. 15
Это код- каждая буква соответствует своему номеру в алфавите.
Например: А-первая буква в алфавите.
Var x,y,r:real;
begin
write('x, y: ');
readln(x,y);
write('R = ');
readln(r);
if x*x+y*y>r*r
then writeln('точка находится внутри круга')
else if x*x+y*y=r*r
then writeln('Точка находится на окружности')
else writeln('Точка находится вне круга');
end.
Пример:
x, y: 3 4
R = 5
Точка находится на окружности
Var ch: char;
begin
write('Введите символ: '); read(ch);
writeln('Предыдущий символ: ', pred(ch), ' | ', 'Следующий символ: ', succ(ch));
<span>end.</span>