program massiv;
var i,j,kol:longint;
a:array[1..6,1..8]of longint;
begin
for i:=1 to 6 do
for j:=1 to 8 do
read(a[i,j]);
for i:=1 to 6 do
for j:=1 to 8 do
if a[i,j]=0 then kol:=kol+1;
writeln(kol);
end.

0 0

4 года назад

Решить задание- Укажите наименьшее число двоичная запись которого содержит ровно пять значащих нулей и две единицы

dima95

Число в 2 сс - 1000001
1000001(2)=2^6+2^0=65(10)

Ответ: 65

0 0

4 года назад

Напишите программу, которая выводит на экран все простые числа в диапазоне от 1 до числа, введенного с клавиатуры

ЮлияПотнина [6.1K]

Прости, что отвечаю через 2 часа, был не дома)

var
i, j, n : integer;
flag : boolean;
begin
write('n = ');
read(n);
for i := 2 to n do begin
flag := true;
for j := 2 to i-1 do
if (i mod j = 0) then begin
flag:=false;
break;
end;
if flag = true then write(i, ' ');
end;

0 0

4 года назад