Var
a : array [1..42] of integer;
sum : integer;
i : byte;
begin
randomize;
for i := 1 to 42 do begin
a[i] := random(30) + random(20);
write(a[i], '|');
sum += a[i];
end;
writeln();
if sum >= 1000 then writeln('Число четырехзначное! Всего: ', sum)
else
writeln('Число НЕ четырехзначное! Всего: ', sum)
<span>end.
----</span>
массив заполняется случайным образом

0 0

4 года назад

8,1,2!!!!!!!!!!!!!!!!!!!!!!!

ZhannaKurteeva [35]

8)
a:=20;
b:=25;
a<b, c:=2*a-b;
c:=40-25;
c:=15;
1)
a:=3;
b:=8;
a:=8-3*2;
a:=2;
b:=24/2*4:
b:=48;
2)
Var
a,b,c,p,s:real;
Begin
Writeln('Enter A,B,C');
Readln(a,b,c);
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(S);
end.

0 0

4 года назад

Составить таблицу умножения на число n (1≤ n≤9), Значения n задаётся в ячейке В2

теслева елена ива...

Реализация на Excel
Зашита без пароля.
Формулы можно увидеть в строке формул

0 0

4 года назад

Срочно информатика макс баллов!!!!

dfff

Заменяем закрашенные квадраты единицей и выделяем тетрады
100 1001
010 1010
001 1100
010 1010
100 1001
А теперь каждую тетраду заменяем шестнадцатиричной цифрой
<u>492A1C2A49</u>

0 0

4 года назад