uses crt;
var a:array[1..100,1..100] of integer;
n,m,s:integer;
begin
clrscr;
randomize;
write('n='); read(n);
write('m='); read(m);
for n:=1 to n do
for m:=1 to m do
a[n,m]:=random(100);
writeln('massiv:');
for n:=1 to n do
begin
for m:=1 to m do
write(a[n,m],' ');
writeln;
end;
for n:=1 to n do
for m:=1 to m do
begin
if (a[n,m] mod 5 =0)and (a[n,m] mod 3<>0) then
begin
s:=n;
write('stroka ',s,'; ');
end;
end;
end.
Чтобы перевести число из десятичной системы счисления в двоичную, нужно:
разделить число на 2 с остатком;
полученное частное снова разделить на 2 с остатком;
и т.д. до тех пор, пока в частном не получится 1;
выписать все остатки, начиная с последнего.
См. решение на рисунке
Полученный ответ содержит 5 единиц.
8 бит= 1 байт
32 символа×2 байта(16÷8)×30 строк×16 страниц = 30720 байт
30720 байт÷1024(вес одного килобайта) = 30 кбайт
<h3>PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var s:=ReadlnString;
s:=s.RegexReplace('[AaBb]','c');
s.Println
end.
<h3>Пример</h3>
A quick movement of the enemy will jeopardize six gunboats.
c quick movement of the enemy will jeopcrdize six guncocts.