const
N = 3;
var
a: array[1..N] of integer;
i, max: integer;
begin
max := 0;
writeln('Введите результаты трех спортсменов');
for i := 1 to N do readln(a[i]);
for i := 1 to N do
begin
if a[i] > max then
max := a[i];
end;
writeln;
writeln('Лучший результат среди трех спортсменов - ', max);
end.
Program pr;
uses crt;
Var a, b, p, s:real;
Begin
Writeln('Введите сторону a');
readln(a);
Writeln('Введите сторону b');
readln(b);
s:=a*b;
p:=2*(a+b);
Writeln('Площадь = ', s);
Writeln('Периметр = ', p);
readln;
<span>end.</span>
1)
var a,c:real; b:integer;
begin
for b:=2 to 7 do
begin
c:=cos((2*b+1)/2-1);
a:=0.4*c*c;
writeln('b = ',b,', a = ',a:5:3);
end;
end.
2)
var a,c:real; b:integer;
begin
b:=1;
while b<7 do
begin
b:=b+1;
c:=cos((2*b+1)/2-1);
a:=0.4*c*c;
writeln('b = ',b,', a = ',a:5:3);
end;
end.
3)
var a,c:real; b:integer;
begin
b:=1;
repeat
b:=b+1;
c:=cos((2*b+1)/2-1);
a:=0.4*c*c;
writeln('b = ',b,', a = ',a:5:3);
until b=7;
end.
Результат:
b = 2, a = 0.002
b = 3, a = 0.257
b = 4, a = 0.351
b = 5, a = 0.018
b = 6, a = 0.201
b = 7, a = 0.381
Цены взяты с сайта <span>h t t р : / /w w w .сitilink. r u /</span>
1) Всего 7720.00 руб.
1. Процессор 32- или 64-разрядный процессор с тактовой частотой 1 ГГц или выше с набором инструкций SSE2 Процессор AMD Athlon II X2 220 1600 руб.2. Оперативная память 1 ГБ (для 32-разрядных систем); 2 ГБ (для 64-разрядных систем) Модуль памяти AMD R532G1601S1S-UO DDR3 — 2Гб 730 руб.3. Свободное место на жестком диске 3 ГБ свободного места на диске Жесткий диск SEAGATE Samsung Momentus ST320LM001
2740 руб.4. Для использования аппаратного ускорения требуется видеоадаптер, поддерживающий DirectX 10 Разрешение 1280 x 800
Видеокарта MSI GeForce 210 1940 руб.
5. Блок питания Блок питания ACCORD ACC-P300W 710 руб.
2)
<span>Процессор Intel® Core 2 или AMD Athlon® 64; 2 ГГц или более быстрый<span>Microsoft Windows 7 с пакетом обновления 1, Windows 8.1 или Windows 10
</span>2 ГБ ОЗУ (рекомендуется 8 ГБ)2 ГБ свободного пространства на жестком диске для установки 32-разрядной версии; 2,1 ГБ свободного пространства на жестком диске для установки 64-разрядной версии; во время установки требуется дополнительное свободное пространство (не устанавливается на съемные устройства флэш-памяти)Монитор с разрешением 1024x768 (рекомендуется 1280x800), поддержкой 16-битного цвета, а также 512 МБ видеопамяти (рекомендуется 1 ГБ)*Система с поддержкой OpenGL 2.0<span>Для обязательной активации программного обеспечения, подтверждения подписки и доступа к онлайн-услугам требуется подключение к Интернету и регистрация**
3)
</span></span><span><span>Процессор Intel® Pentium® 4 с тактовой частотой 1,4 ГГц или аналогичный процессор AMD® с поддержкой SSE2* 3</span>2 ГБ оперативной памяти (рекомендуется 4 ГБ)<span>2 ГБ в файле подкачки (рекомендуется 4 ГБ**) 4</span>3 ГБ свободного места на жестком диске<span>Графический адаптер, поддерживающий Direct3D® 10, Direct3D 9 или OpenGL5</span>Не менее 512 MБ памяти на видеокарте (рекомендуется 1 ГБ и выше)Трехкнопочная мышь с установленным драйвером<span>Привод DVD-ROM6</span><span>Подключение к Интернету для загрузки файлов и доступа к Autodesk® Subscription Aw
</span></span>4)
intel Core i3-550, AMD Phenom II X4 955 или аналоги;
4 ГБ ОЗУ;
NVIDIA GeForce GTX 460 (1 ГБ VRAM), AMD Radeon HD 5770 (1 ГБ VRAM) или аналоги;
<span>20 ГБ места на жестком диске.
</span>Цены найдешь на сайте