Чесно я не знаю просто мне очень надо балы пособирать извени другие напишу т
Program suma;
Var n, sum, i:integer;
begin
read(n);
for i:=1 to n do sum:=sum+i;
write(sum);
end.
По горизонтали: 3. Рене Декарт 6. числовой 8. символьный 9. кодирование 10. шахматы
По вертикали: 1. метод координат 2. графический 4. Луи Брайль 5. код
Var f,n:integer;
begin
write('Сколько дней: ');
readln(f);
n:=f div 7;
writeln('Полных недель: ',n);
<span>end.</span>