Uses crt;
const n=10;
var a:array [1..n] of integer;
i: integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(100);
writeln(a[i]);
end;
writeln;
for i:=1 to n do
if (a[i] mod 2=0) then a[i]:=1 else a[i]:=0;
for i:=1 to n do writeln(a[i]);
end.
Это те программы, которые ты можешь скачать, не заплатив за них.
Именно это их главное отличие.
CРОЧНО!!! На рисунке – схема дорог, связывающих города А, Б, В, Г, Д, Е, Ж, З, И, К и Л. По каждой дороге можно двигаться только
Станислав 42
Nл=Nи+Nе+Nз+Nж+Nк=3+3+14+5+5=30
Nи=Nе=3
Nе=Nв+Nб=2+1=3
Nв=Nб+Nа=1+1=2
Nб=Nа=1
Nз=Nе+Nв+Nг+Nж=3+2+4+5=14
Nг=Nв+Nа+Nд=2+1+1=4
Nд=Nа=1
Nж=Nг+Nд=4+1=5
Nк=Nж=5
Ответ:
a) 25
б) 18,5
в) 6
г) 14,5
Объяснение:
A1 =7
A2 = 5,5
A3 = 6
B1 = 2
B2 = 4
B3 = 8
C1 = A1 - B1 = 7 - 2 = 5
C2 = A2 * B2 = 5,5 * 4 = 22
C3 = A3 * B3 = 6 * 8 = 48
a) = (C1 + C2 + C3) / 3 = (5 + 22 + 48) / 3 = 75 / 3 = 25
б) = A1 + B1 + A2 + B2 = 7 + 2 + 5,5 + 4 = 18,5
в) = B2 + B3 / 4 = 4 + 8 / 4 = 4 + 2 = 6
г) = (A1 + C2) / 2 = (7 + 22) / 2 = 29 / 2 = 14,5
Не понял с a2, если не квадрат, то позже исправлю
program func;
var
a, b: integer;
z: real;
begin
writeln('Введите a и b');
readln(a,b);
if a=0 then
writeln('Решения нет')
else if a<>0 then
begin
z:=((Sqr(a)-b)/(a-1));
writeln('z=',z);
end;
end.