program raf105;
var
i: integer;
begin
for i:=50 to 57 do
writeln(i,' ');
end.
2.program raf105;
var
i,c,sum: integer;
sari: real;
begin
for i:=6 to 14 do
begin
sum:= sum+i*i;
c:= c+1;
end;
sari:= sum/c;
writeln('Среднее арифметическое: ',sari);
end.
3.program raf105;
var
i,n,sum: integer;
begin
write('n = ');
readln(n);
for i:=1 to n do
if i mod 2 = 0
then sum:= sum+i*i;
writeln('Сумма квадратов чётных чисел: ',sum);
end.
PascalABC 3.4.2School = {'1 A': 28,
'1 Б': 29,
'1 В': 29,
'2 А': 27,
'2 Б': 30}
print(School)
# for key, val in list(School.items()):
# print(f'{key} - {val}') - Альтернативный вариант вывода словаря
num = input('Введите номер класса')
if num not in School.keys():
print('Такого класса не существует')
else:
print(f'В классе {num}: {School[num]}')
# Не понял суть третьего задания
# Поэтому, запрашиваю ввод данных от пользователя
School['1 A'] = int(input('Сколько человек теперь в классе 1 A?'))
School['1 Б'] = int(input('Сколько человек теперь в классе 1 Б?'))
School['2 A'] = int(input('Сколько человек теперь в классе 2 A?'))
print(School)
# for key, val in list(School.items()):
# print(f'{key} - {val}') - Альтернативный вариант вывода словаря
