Var
a:array[1..1000] of extended;
i,n:longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
writeln;
for i:=1 to n do writeln(a[i]:0:3);
end.

<span>
</span>

0 0

4 года назад

Программа 12. Написать программу, которая бы по номеру дня недели (целому числу от 1 до 7) выдавала бы количество уроков в вашей

Vano12e

12) var A: array[1..7] of integer;
k: integer;
begin
randomize;
for k := 1 to 7 do
A[k] := random(5);
write("vvedite den' nedeli: ");
readln(k);
if (k < 1 or k > 7) writeln("error");
else if ( A[k] <> 0) then writeln("segodnya urokov: ", A[k]);
else write("vyhodnoy");
end.

13) var k: real;
begin
write("vvedite chislo: ");
readln(k);
if (k > 0) then write("polozhitel'noe, ");
else if (k < 0) then write("otricatel'noe, ");
else write("nol', ");
if (k mod 1 <> 0) then write("neceloe, ");
else write("celoe, ");
if (k mod 2 <> 0) then writeln("nechetnoe");
else writeln("chetnoe");
end.

0 0

1 год назад

1. Выполните действие:А) 1101112 — 101 102;Б) 1010012+ 101 102;В) 778 + 748;Г) 2A16 + A216.

miks007 [1.1K]

Ответ:

1) 1000010

2) 1111114

3) 1526

4) 248a

Объяснение:

1,2,3 обычное сложение

4) упрощение

2×а16+а×216

32а+а×216а

32÷216а

248а - подобный член

0 0

4 года назад