snk7777202
?>

Определите какое значение будет выведено на экран после выполнения программы program summer;var a, b: div:begina := 20b:= 3;b = a/2 b:a := 2 a + 3*bwrite (a):end.​

Информатика

Ответы

nebo2020
Const a=10;
type mas=array[1..a] of integer;
     mas1=array[1..3] of byte;
var R, Q, P:mas;
    X:mas1;
    i:byte;

procedure Form(var R, Q, P:mas);
var sr, sq, sp:byte;
begin
sr:=0;
sq:=0;
sp:=0;
for i:=1 to a do
 begin
 if (R[i]>=2) and (R[i]<=4) then sr:=sr+R[i];
 if (Q[i]>=2) and (R[i]<=4) then sq:=sq+R[i];
 if (P[i]>=2) and (R[i]<=4) then sp:=sp+R[i];
 end;
x[1]:=sr;
x[2]:=sq;
x[3]:=sp;
writeln('Massiv x');
for i:=1 to 3 do
write(x[i]:3);

end;

begin
randomize;
for i:=1 to a do
 begin
 R[i]:=random(10);
 Q[i]:=random(10);
 P[i]:=random(10);
 end;
writeln('Massiv r');
for i:=1 to a do
write(R[i]:3);
writeln;
writeln('Massiv Q');
for i:=1 to a do
write(Q[i]:3);
writeln;
writeln('Massiv P');
for i:=1 to a do
write(P[i]:3);
end.
kirill81
1.Изучают устройство компьютера, с чего они начались, как развивались,

основные принципы работы, современное железо. Сюда обычно заталкивают массу неструктурированных знаний: системы счисления, основы математической логики, основы микроэлектроники и схемотехники и т.п.
2. для того, чтобы понимать представление об этом, так как в наше время, это очень развито.  
3. должны изучать базовые языки программирования, по типу:Pascal( и его ветвь) Qbasic, python. 
И конечно же, уметь обрабатывать данные, к примеру работа в Word, Excel, Power Point. Желательно бы краткие примеры работы программ для обработки изображения\видео\музыки. 

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Определите какое значение будет выведено на экран после выполнения программы program summer;var a, b: div:begina := 20b:= 3;b = a/2 b:a := 2 a + 3*bwrite (a):end.​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

kolefe22171
Смирнов-Оськина
lenalevmax7937
Galkin683
Дмитрий1974
Olegovna Volkov
Nivanova995
TatiyanaBe20135263
myrisik2490
Yevgeniya Bessonov
alfastore4
гайсанов
purbuevat56524
alena
andre6807