Ввести целое число а и вывести сумму всех чисел от 1 до а паскаль! (через begin )

Question

Информатика: Ввести целое число а и вывести сумму всех чисел от 1 до а паскаль! (через begin )

ArhangelTYT · Answer

Program ch ;Var x:integer ;BEGIN X:=1;While xl=7 Do(можешь выбрать другое число) BEGIN Write (x, ) /в это пробел /X:=x+1End ;END....