Var
n,i:integer;
s,a:real;
begin
writeln('Vvedite n:');
readln(n);
writeln('Vvedite chisla:');
s:=0;
for i:=1 to n do
begin
readln(a);
s:=s+a;
end;
writeln('Srednee arifmeticheskoe =',s/n);
readln();
end.
1)
chr(ord('b'))='b'
2)
ord('A')-ord('Z')=65-90=-25
3)
ord('A')-ord('a')=ord('Z')-ord('z')
65-97=90-122
-32=-32
4)
ord('9')-ord('0')=57-48=9
5)
chr(ord('a')+ord('R')-ord('r'))=chr(97+82-114)=chr(65)='A'
program gt;
var a:char;
l:longint;
begin
readln(a);
l:=ord(a);
writeln(l);
<span>end.</span>
Табиғатты қорғау үшін жүрегімізді таза ұстау қажет .Ал жүрегі таза адам бүкіл əлемді тазалай алады. Сенбіліктер ұйымдастыру . Қоқыстарды жинап өртеу. Эколоияны жақсарту.
После рандомного выбора планеты вывести эту переменную:
print(planet)
import random
planets = ['Меркурий', 'Венера', 'Земля', 'Марс',
'Юпитер', 'Сатурн', 'Уран', 'Нептун']
planet = random.choice(planets)
print(planet)
print('Какую планету я загадал?')
answer = input()
if answer == 'Плутон':
(тут пробел)print('Плутон уже не считается планетой.')
elif answer not in planets:
(пробел)print('Да это же вообще не название планеты Солнечной системы.')
elif answer == planet:
(пробел)print('*** Верно! *** Это', answer)
else:
(пробел)print('Неверно!')
Зачем в конце input? Не знаю.