Задание №3 по информатике

Написать программу, которая вычисляет сумму первых n целых положительных чисел. program lab3; {$APPTYPE CONSOLE} uses SysUtils; var a:array[1..100] of integer;  // массив s:longint; i,n:integer; begin writeln ('vvedite

Задание №2 по дисциплине «Информатика»

Решить задачу: с использованием условного оператора. Составить программу вычисления функции program Project1; {$APPTYPE CONSOLE} uses SysUtils; var x,f,x1,x2,x3:real; begin writeln ('vvedite X'); readln

Задание № 1 по дисциплине «Информатика»

Бетонная плита длиной 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