Написать программу, которая вычисляет сумму первых n целых положительных чисел. program lab3; {$APPTYPE CONSOLE} uses SysUtils; var a:array[1..100] of integer; // массив s:longint; i,n:integer; begin writeln ('vvedite
Решить задачу: с использованием условного оператора. Составить программу вычисления функции program Project1; {$APPTYPE CONSOLE} uses SysUtils; var x,f,x1,x2,x3:real; begin writeln ('vvedite X'); readln
Бетонная плита длиной L м, шириной B м имеет массу M т. Определить плотность бетона. program Project1; {$APPTYPE CONSOLE} uses SysUtils; var l,b,h,m,p,v:real; begin writeln ('vvedite dliny plity'); readln (l); writeln