#include <stdio.h>
#include <malloc.h>
#include <locale.h>
#include <stdlib.h>
int main()
{
int *arr;
int i, n;
setlocale(LC_ALL,"Rus");
printf("Введите размер массива: ");
scanf("%d", &n);
arr = (int*)malloc(n * sizeof(int));
for (i = 0; i<n; i++)
{
printf("a[%d] = ", i);
scanf("%d", &arr[i]);
}
printf("Четные:");
for (i = 0; i<n; i++)
if (arr[i] % 2 == 0)
printf("%d ", arr[i]);
printf("\n");
printf("Нечетные:");
for (i = 0; i<n; i++)
if (arr[i] % 2 != 0)
printf("%d ", arr[i]);
free(arr);
return 0;
}
Объяснение:
ее слово переданной её символьной строки. Слово – это последовательность непробельных символов, ограниченная пробелами или концами строки.
Входные данные
Входная строка содержит произвольную последовательность символов.
Выходные данее слово переданной её символьной строки. Слово – это последовательность непробельных символов, ограниченная пробелами или концами строки.
Входные данные
Входная строка содержит произвольную последовательность символов.
Выходные данее слово переданной её символьной строки. Слово – это последовательность непробельных символов, ограниченная пробелами или концами строки.d
Входные данные
Входная строка содержит произвольную последовательность символов.
Выходные данее слово переданной её символьной строки. Слово – это последовательность непробельных символов, ограниченная пробелами или концами строки.
Входные данные
Входная строка содержит произвольную последовательность символов.
Выходные дан
Var a,b,i,tek,sum10,sum3:integer;
Procedure TroichSS (te:integer; var sum3:integer);
var m:array[1..10]of integer;
k,j,su3:integer;
begin
write(te:4);
repeat
inc(k); m[k]:=te mod 3; te:=te div 3;
until te<3;
inc(k); m[k]:=te mod 3;
for j:=k downto 1 do
begin su3:=su3+m[j]; write(m[j]:3) end;
write(' su3=',su3);
sum3:=su3; su3:=0; k:=0;
end;
Procedure DesiatSS (te:integer; var sum10:integer);
var m:array[1..10]of integer;
k,j,su10:integer;
begin
write(te:4);
repeat
inc(k); m[k]:=te mod 10; te:=te div 10;
until te<10;
inc(k); m[k]:=te mod 10;
for j:=k downto 1 do
begin su10:=su10+m[j]; write(m[j]:3); end;
writeln(' su10=',su10);
sum10:=su10; su10:=0; k:=0;
end;
Begin
//Задание интервала [a; b]
a:=1; b:=1000;
writeln('Интервале [a; b]',a:4,b:4);
//Сумма цифр троичных и десятичных чисел
for i:=a to b do
begin
TroichSS(i,sum3); DesiatSS(i,sum10);
if sum3=sum10 then
begin writeln('Э в р и к а!'); delay(5000); end;
end;
writeln('К о н е ц.');
End.
ответ: 39