На фото номер 17
а)110111
б)10100
в)1110007
номер 16
Program gt;
var n,i,a:integer;
begin
read(N);
a:=n div 4;
for i:=1 to a do
begin
if((n-i*4)mod 2=0)then writeln((n-i*4),' лап гусей и ',i*4,' лап заёцев');
end;
<span>end.</span>
Вот пример кода:
program Znanija;
var
cena, kolvokg, dengi, sdacha, nyno :Integer;
begin
read(cena);
read(kolvokg);
read(dengi);
nyno:=cena*kolvokg;
sdacha:=dengi-nyno;
write('Надо = ');
write(nyno);
write('; сдача = ');
write(sdacha);
end.
В HDD используется медный диск и считывающая головка, а твердотельный накопитель SSD основан на микросхеме, т,е, у него флеш-память
Var a: array[1..5] of Integer;
rand,count,i: Integer;
begin
for i:=1 to 5 do
begin
a[i]:=Random(100);
writeln(a[i]);
if (a[i] mod 5=0) and (a[i] mod 10=0) then Inc(count);
end;
writeln('Кол-во: ',count);
end.