Program maschetinol;
var a:array [1..25] of Integer;
i:Integer;
begin
Write ('Массив: ');
for i:=1 to 25 do
begin
a[i]:=random(51);
write (a[i], ' ');
end;
WriteLn;
Write('Чётные элементы: ');
for i:=1 to 25 do
if a[i] mod 2 = 0 then
Write (a[i],' ');
WriteLn;
Write('Элементы, оканчивающиеся на ноль: ');
for i:=1 to 25 do
if a[i] mod 10 = 0 then
Write(a[i],' ')
end.
Ответ:
2 и 3 вариант верные
Объяснение:
Поставь лучший ответ пожалуйста
Var a,z:integer;
q:boolean;
begin
read(a);
while a>0 do begin
z:=a mod 10;
if (z>3)and(z<8) then q:=true;
a:=a div 10;
end;
writeln(q);
end.
т.к. число не дано, то объясню как. Пишешь число, например 110 в десятично системе счисления и делишь всё время на 2, пока не дойдёшь до единицы(1). В ответе указываются те числа, которые у тебя в остатке. И писать ответ нужно строго наоборот, т.е.
если у тебя остатки 101010111, то надо написать 111010101
Program untitled;
var t,t2:text;
i,a:integer;
m:array [1..50] of integer;
begin
randomize;
assign(t,'output.txt');
assign(t2,'output2.txt');
rewrite(t);
for i:=1 to 50 do begin
m[i]:=random(50);
writeln(t,m[i]);
end;
reset(t);
rewrite(t2);
for i:=1 to 50 do begin
readln(t,a);
if a mod 2=0 then
writeln(t2,a);
end;
close(t);
close(t2);
<span>end.</span>