var ababab,bababa,sususumamama:Integer; begin WriteLn('Перед вами программа для нахождения суммы всех натуральных чисел заданного диапазона'); введите наименшее число диапазона '); ReadLn(ababab); Write('А теперь введите наибольшее число диапазона '); ReadLn(bababa); //оформляем ввод данных sususumamama:=0;//присваиваем сумме значение 0 while ababab<=bababa do begin sususumamama:=sususumamama+ababab;//увеличиваем сумму на число а ababab:=ababab+1;//увеличиваем число а на 1 end; Write('Сумма всех чисел диапазона равна '+sususumamama); //выводим сумму чисел end.
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018 Внимание! Если программа не работает, обновите версию!
procedure LT(p,q:array of integer; var r:boolean); begin r:=p.Zip(q,(i,j)->i-j).All(t->t<0) end;
begin var a:=ArrRandom(15,-50,10); Print('a:'); a.Println; var b:=ArrRandom(15,-10,50); Print('b:'); b.Println; var less:boolean; LT(a,b,less); if less then begin a.Transform(t->t*10); Print('a:'); a.Println; b.Transform(t->t div 2); Print('b:'); b.Println end else Writeln('Векторы не менялись') end.
Восьмиричная, или ж десятичная