Язык паскаль Если решите этот номер, то зайдите на мой аккаунт и решите 2 номер)
Если не тяжело конечно.

готово

Объяснение:

var i,n,sum:integer;

begin

write('n=');readln(n);

sum:=0; i:=1;

while i<=n do begin

sum:=sum+i; i:=i+1;

end;

writeln('Sum=',sum);

end.

сумму чисел один,два,три,четыре,пять разделить на разность чисел 10 и 7.равно пяти.

program _1_2; uses crt; var  dlina, shirina, vysota: real; begin  clrscr;   textcolor(14);   writeln('вычисление объёма параллелепипеда.');   writeln('введите исходные данные: ');   write('длина (см) -> ');   readln(dlina);   write('ширина (см) -> ');   readln(shirina);   write('высота -> ');   readln(vysota);   writeln('объём: ',(dlina*shirina*vysota): 7: 2);   repeat  until keypressed; end.