Протабулировать функцию y=99* (корень из cos (pi* x*x))+x*log (pi) на интервале 0 ? x ? 2,2 c шагом h = 0,4. program Project1; {$APPTYPE CONSOLE} uses SysUtils; var x,y,p,koren:real; i:integer; begin x:=0; p:=3.141; // число пи while
Написать программу, которая вычисляет сумму первых 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
И так, подключил я свой нулевой блог http://blog-74.ru к бирже ссылок mainlink.ru. Mainlink.ru это аналог сапы просто менее популярна из за этого поисковики типа яндекса меньше
Приобрел себе ipaq 214. Характеристики КПК: • Процессор Marvell PXA 310 с частотой 624 МГц; • Объём оперативной памяти 128 МБ, флэш-памяти 256 (доступно 164) МБ; • TFT дисплей с
Купил себе три защитных супер устройства по 100 р каждая. Наклеил одну на системный блок, другой на микроволновку, и третий вложил в сотовый телефон (на