11010+1110=12120 111011+11011=122022 10111=11101+11011=32223
===== PascalABC.NET =====
-1-
begin
var a := new integer[9];
for var i := 0 to 2 do
begin
a[3 * i] := ReadInteger('Введи элемент ' + (3 * i + 1).ToString);
a[3 * i + 1] := 6 * i + 4;
a[3 * i + 2] := Random(0, 9)
end;
a.Println
end.
-2-
begin
var a := ArrRandom(15, -99, 99);
a.Println;
var b := a.Select(p -> p * p).ToArray;
b.Println;
Println('Разность', a.Max - b.Min)
end.
Var
a: array [1..10] of integer;
i, s: integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
writeln('a[', i, '] = ', a[i]);
if a[i]<0 then s:=s+a[i];
end;
writeln('Сумма всех отрицательных элементов:', s);
<span>end.</span>
Var A,B,C,M,P:real;
begin
write('Введите A = ');Readln(A);
write('Введите B = ');Readln(B);
write('Введите C = ');Readln(C);
M:=A;
If B<M Then
M:=B;
if C<M Then
M:=C;
P:=(A*B*C)/M;
Write('P = ',P);
end.
Мне бы такие тесты
но нет мы на инфе в кс играли
1)Информация<span> - это любые сведения, принимаемые и передаваемые, </span><span>сохраняемые различными источниками.</span>
2)8 бит
3)а)1024
б)3*1024=3072
в)1024
г)2*1024=2048
4)вроде условие это if elif else
5)целый integer
символьный char
вецественный real
логический bool
6)обьявление и присваивание переменным занчений
7)Y не присвоено значение и точеки с запятой не хватает после обьявления real
если х больше 0 то прибавляет y если наоборот отнимает y
8)площадь на каком языке если паскаль то это не ко мне