Как дополнить любое число до целого квадрата умножением? То-есть есть число 12, и чтоб дополнить до целого квадрата нужно домножить на 3. Как доделать такую программу в общем случае? Питон
Program Pr1; uses crt; var mas:array[100..999] of integer; i:integer; Begin clrscr; for i:=100 to 999 do mas[i]:=i; {1 sposob} for i:=100 to 999 do if mas[i] mod 9 =0 then writeln(mas[i]); i:=100; {2 sposob} while i<=999 do begin if mas[i] mod 9=0 then writeln(mas[i]); i:=i+1; end; i:=100; {3 sposob} repeat if mas[i] mod 9=0 then writeln(mas[i]); i:=i+1 until i=999 end.
2)
Program Pr1; uses crt; var mas:array[100..999] of integer; i,v:integer; Begin clrscr; v:=0; for i:=100 to 999 do mas[i]:=i; {1 sposob} for i:=100 to 999 do if mas[i] mod 17 =0 then v:=v+mas[i]; writeln(v); i:=100; {2 sposob} v:=0; while i<=999 do begin if mas[i] mod 17=0 then v:=v+mas[i];; i:=i+1; end; writeln(v); i:=100; {3 sposob} v:=0; repeat if mas[i] mod 17=0 then v:=v+mas[i]; i:=i+1 until i=999; writeln(v); end.
9 килобайт = 9216 байт. Зная информационный объём рассказа и количество страниц, найдём информационный объём одной страницы. В условии сказано, что каждый символ кодируется 8 битами, т.е. одним байтом. Также мы знаем количество символов в одной строке. Умножив 1 байт на количество символов в строке, найдём информационный объём одной строки. И, наконец, разделив информационный объём страницы на информационный объём строки, найдём количество строк на странице.
1) 9216 : 6 = 1536 (байт) – информационный объём одной страницы.
2) 1 × 48 = 48 (байт) – информационный объём одной строки.
3) 1536 : 48 = 32 (стр.) – количество строк на каждой странице.
1)
Program Pr1;
uses crt;
var mas:array[100..999] of integer;
i:integer;
Begin
clrscr;
for i:=100 to 999 do mas[i]:=i; {1 sposob}
for i:=100 to 999 do if mas[i] mod 9 =0 then writeln(mas[i]);
i:=100; {2 sposob}
while i<=999 do begin
if mas[i] mod 9=0 then writeln(mas[i]);
i:=i+1;
end;
i:=100; {3 sposob}
repeat
if mas[i] mod 9=0 then writeln(mas[i]);
i:=i+1
until i=999
end.
2)
Program Pr1;
uses crt;
var mas:array[100..999] of integer;
i,v:integer;
Begin
clrscr;
v:=0;
for i:=100 to 999 do mas[i]:=i; {1 sposob}
for i:=100 to 999 do if mas[i] mod 17 =0 then v:=v+mas[i];
writeln(v);
i:=100; {2 sposob}
v:=0;
while i<=999 do begin
if mas[i] mod 17=0 then v:=v+mas[i];;
i:=i+1;
end;
writeln(v);
i:=100; {3 sposob}
v:=0;
repeat
if mas[i] mod 17=0 then v:=v+mas[i];
i:=i+1
until i=999;
writeln(v);
end.