Var
a, v : integer;
begin
write('Введите длину ребра:');
readln(a);
v := a * a * a;
writeln;
writeln('Объем = ', v);
<span>end. </span>
Var n: longint;
k: integer;
begin
k:=0;
write('Введите число: ');
readln(n);
while n>0 do
begin
if n mod 10 mod 2<>0 then
k:=k+1;
n:=n div 10;
end;
writeln('В числе ',k,' нечетных цифр');
readln;
<span>end.</span>
#include "stdafx.h"
#include <iostream>
using namespace std;
void vvod(int *m,int size) {
for(int i = 0; i<size ;i++) {
cin >> m[i];
}
}
int main()
{
int m[10] = {0};
vvod(m,sizeof(m)/sizeof(*m));
return 0;
}