Program z1;
var a,b,c,d,e:integer;
begin
Writeln('Введите числа: ');
Write('Первое число (a): '); read(a);
Write('Второе число(b): '); read(b);
if (a mod 2=0) then c:=a;
if (b mod 2=0) then d:=b;
if (a mod 2=0) or (b mod 2=0) then Writeln('Среди введённых чисел присутствует чётное число')
else Writeln('Среди введённых чисел нет чётных чисел');
if (c=a) then Writeln('Чётное число: ',c);
if (d=b) then Writeln('Чётное число: ',d);
end.
Первый ребус сорока
Второй ребус синица
16*50*32=25600байт
8бит=1байт
25600*1=25600байт
1Кбайт=1024байта
25600:1024=25Кбайт
1.
а=2*а-в=3*2-6=0
в=а+22=0+22=22
<u>Ответ- А=0 В=22</u>
2.
а=2*а-в=3*2-5=1
в= (-1)^2=1
<u>Ответ- А=1 В=1</u>
3.
с=а+в=3+6=9
а=2*в-с=6*2-9=3
в=а+с=3+9=12
<u>Ответ- А=3 В=12</u>
4.
y=x*x=2*2=4
y=y*y=4*4=16
x=y*x=16*2=32
s=x+y=32+16=48
<u>Ответ- x=32 y=16 s=48</u>
<em>После того как переменной присвоили новое значение считается переменная с этим значением, старое значение ни как не учитывается</em>
Program primer;
const n =10;
var a:array[1..n] of integer;
s,i:integer;
begin
randomize;
for i :=1 to n do
begin
a[i]:=random(19);
readln(' ' ,a[i]);
end;
s:=0;
for i :=1 to n do
s:=s+a[i];
writeln('s=',s);
readln;
end.
program primer2;
const n =10;
var a:array[1..n] of integer;
s,i:integer;
begin
randomize;
for i :=1 to n do
begin
a[i]:=random(19);
readln(' ' ,a[i]);
end;
s:=0;
for i :=1 to n do
if a[i] mod 2=0 then s:=s+a[i];
writeln('s=',s);
readln;
end.
program primer2;
const n =10;
var a:array[1..n] of integer;
s,i:integer;
begin
randomize;
for i :=1 to n do
begin
a[i]:=random(19);
readln(' ' ,a[i]);
end;
s:=0;
for i :=1 to n do
if i mod 2 =0 then s:=s+a[i];
writeln('s=',s);
readln;
end.