Var
A: Array [1..100] of integer;
size: integer;
Even: integer;
notEven: integer;
i:integer;
begin
Write('Set size A :');
Read(size);
for i:= 1 to size do begin
Write('Set A[', i, ']: ');
Read(A[i]);
end;
for i:= 1 to size do begin
if (A[i] mod 2 <> 0) then begin
notEven += A[i];
end
else begin
Even += A[i];
end;
end;
Write('Sum even numbers = ', Even);
Writeln;
Write('Sum notEven numbers = ', notEven);
end.
#include <stdio.h>
#include <stdlib.h>
int main()
{
int number;
scanf("%d", &number);
number = abs(number);
if(number % 2 != 0)
{
printf("Не является!");
return 0;
}
while(number > 2)
{
number /= 2;
}
if(number == 2)
printf("Является!");
else printf("Не является!");
}
Var
s:integer;
x:real;
begin
repeat
begin
write('Сколько всего журавликов сделали: ');
readln(s);
if s mod 6<>0 then writeln('Они не могли сделать столько, противоречит условию')
end
until s mod 6=0;
x:=s/6;
writeln('Петя и Сережа сделали каждый по ',x);
writeln('Катя сделала ',4*x)
<span>end.</span>
Var Y: array [1..11] of integer;
var i, sum, n: integer;
begin
randomize;
for i:=1 to 11 do begin
Y[i]:=-10+random (21);
write (Y[i], ' ');
end;
sum:=0;
for i:=1 to 11 do begin
if (i mod 2<>0) and (Y[i]<0) then sum:=Y[i]+sum; //№1
if i mod 2<>0 then Y[i]:=Y[i]*Y[i]; //№2
if (i mod 2=0) and (Y[i]=1) then inc (n); //№3
end;
writeln;
writeln ('Сумма =', sum);
writeln ('Количество 1 на четных местах =', n);
<span>end.
</span>