Program Pr;
var x,y,z:real;
i:integer;
Begin
y:=-1;
x:=-pi;
For i:=1 to 7 do begin
z:=x*x+y+sin(x);
if (x<>0) then x:=x+(pi/6);
if i=6 then x:=0;
if y<>1 then y:=y+0.4;
writeln('z=',z:4:4);
end;
end.
#include<iostream>
#include<cstdlib>
#include<locale>
#include<ctime>
using namespace std;
int main()
{
<span> setlocale(LC_ALL, "Russian");</span>
<span> srand(time(NULL));</span>
<span> int min_value, max_value;</span><span>
int mas[10];</span>
// инициализируем массив случайными числами
<span> for(int i=0; i<10; i++) mas[i] = rand()%100;</span>
<span>
//находим минимальное значение</span><span>
min_value = mas[0];</span><span>
for(int i=0; i<10; i++)</span><span>
if(min_value > mas[i]) min_value = mas[i];</span>
<span>
cout << "Минимально значение: " << min_value << '\n';</span>
<span>
//находим максимальное значение</span><span>
max_value = mas[0];</span><span>
for(int i=0; i<10; i++)</span><span>
if(max_value < mas[i]) max_value = mas[i];</span>
<span> cout << "Максимальное значение: " << max_value << '\n';</span>
<span>
//выводим среднее значение максимального и минимального значение</span><span>
cout << "Среднее значение: " << (double) (min_value+max_value)/2 << '\n';
</span><span>}</span>
1)
case k of
4: a:=k+2;
5: a:=k+4;
6: a:=k+6;
7: a:=k+8;
8: a:=k+10;
9: a:=k+12;
10: a:=k+14;
end; { case }
2) if k in [4..10] then a:=3*(k-2);
1 обозначить центр
2 начертить самый большой круг
3 начертить круг поменьше
4 отступать от центра 5 мм влево
5 начертить самый маленький круг
6 отступить от центра 5 мм вправо
7 начертить второй самый маленький круг таких же размеров
Нажми на файл правой мышкой и найди и нажми на свойства
