#include <iostream>
using namespace std;
double f(double x, double y, double z) {
return x*y*z;
}
int main()
{
double a, b, c, r;
cout << "Введите a:", cin >> a, cout << "\n";
cout << "Введите b:", cin >> b, cout << "\n";
cout << "Введите c:", cin >> c, cout << "\n";
r = f(a,b,c);
cout << r;
return 0;
}
Пример:
<span>Введите a: 5
Введите b: 8
Введите c: 4
160</span>
2*80*60*800=7680000
(2*80- сколько всего строк
2*80*60- сколько символов на одной странице
2*80*60=9600
Во всей книге: 9600*800=7680000
Var i,p:real;
begin
i:=0.1;
p:=1;
while (i<=10) do
begin
p:=p*(1+sin(pi*i/180));
i:=i+0.1;
end;
writeln ('Rezultat: ',p);
readln;
end.
// Дан массив А(30). Сформировать новый массив из значений элементов массива А кратных 5
var ish, krat: array [1..30] of word;
i,j,x :byte;
begin j:=1;
randomize;
for i:=1 to 30 do //заполняем исходный массив случайными числами (до 1000)
begin
ish[i]:=random(1000);
writeln (i,' элемент исходного массива ',ish[i]);
end;
writeln ('находим элементы кратные пяти:');
for i:=1 to 30 do
begin
x:= ish[i] mod 5; //определяем элементы кратные пяти
if x=0 then
begin //и заполняем новый
krat[j]:=ish[i];
writeln (j,' элемент нового массива ',krat[j],' равен ',i,' элементу исходного массива');
j:=j+1;
end;
end;
<span>end.</span>
<span>Інформатика вивчає структуру і загальні властивості
інформації, а також питання, пов’язані з пошуком, збиранням, перетворенням,
зберіганням, поширенням і використанням інформації у різних сферах людської
діяльності.</span>
