Program ob;
procedure GetVolume();
var
r: real;
begin
write('r = ');
readln(r);
writeln('Объём: ', V(r));
end;
function V(r: real): real;
begin
V := 4 * 3.14 * (r * r * r) / 3;
end;
begin
GetVolume();
end.
<em><u>Современное решение:</u></em>
// PascalABC.Net 3.0, сборка 1066
begin
var k:=ReadInteger('Количество элементов в массиве: ');
var a:=ArrRandom(k,-25,25);
Writeln('Сгенерированный массив: ',a);
Writeln('Сумма четных элементов равна ',a.Where(x->x mod 2=0).Sum)
end.
<em><u>Тестовый прогон:</u></em>
Количество элементов в массиве: 15
Сгенерированный массив: [6,18,19,20,12,-20,7,19,-17,10,14,-25,10,-11,-13]
Сумма четных элементов равна 70
1)-1
2)-2
3)-3
4)-4
5)-5
6)-10
7)-11
8)-12
9)-13
10)-14
11)-15
12)-20
13)-21
14)-22
15)-23
16)-24
17)-25
18)-30
19)-31
20)-32
К примеру, можно просто заменить некоторые буквы(но это не совсем правильно...).
#include <iostream>
using std::cout;
using std::endl;
int main()
{
char s[] = "Mother plays with the child";
cout << s << endl;
s[0] = 'F';
s[1] = 'a';
cout << s << endl;
return 0;
}
Как-то так. надеюсь подойдет...