Program data ;
Uses CRT;
var n:integer;
begin
ReadKey;
Writeln('3 июля');
<span>end.</span>
#include <iostream>
#include <cstdlib>
using namespace std;
int main()
{
int n, multi = 1;
cout << "Input n: "; cin >> n;
for(int i = 1; i < n; i++){
if(i % 2 == 0){
multi *= i;
}
}
cout <<"Multi all even numbers: " << multi << endl;
system("pause");
return 0;
}
<html>
<head>
<title>Таблица</title>
</head>
<body>
<table border="1" width="600px" height="500px">
<tr>
<td>1 1</td><td width="200px">2 1</td><td>3 1</td><td>4 1</td><td>5 1</td><td width="70px">6 1</td>
</tr>
<tr>
<td>1 2</td><td width="200px">2 2</td><td>3 2</td><td>4 2</td><td>5 2</td><td width="70px">6 2</td>
</tr>
<tr height="50%">
<td>1 3</td><td width="200px">2 3</td><td>3 3</td><td>4 3</td><td>5 3</td><td width="70px">6 3</td>
</tr>
</table>
</body>
<span></html></span>
Массив содержит значения температуры, измеренной в 10 точках радиатора охлаждения(°C): 45, 34, 39, 67, 62, 41, 52, 57, 51, 36. О
andreifly [79]
Uses crt;
const
a:array[1..10] of integer=(45, 34, 39, 67, 62, 41, 52, 57, 51, 36);
var sr:real;
i,n,sum:integer;
begin
for i:=1 to 10 do write(a[i]:3);
writeln;
for i:=1 to 10 do
if a[i]>50 then
begin
sum:=sum+a[i];
n:=n+1;
end;
sr:=sum/n;
writeln('Среднее значение горячих участков: ',sr);
end.<span>
</span>
Задание несколько расплывчатое, но скорее всего, подойдет такое решение:
var r,d,p: real;
begin
writeln('введите радиус');
readln(r);
d:= 2*pi*r;
p:=pi*r*r;
writeln('площадь = ',p);
writeln('длина окружности = ',d)
end.
