Если не то, что нужно напиши мне!
var a,b,n,c:integer;
Begin
readln(n);
a:=0;
<span>for c:=1 to n do</span>
begin
readln(n);
If n<0 then
n:=1 else n:=0;
a:=a+n;
end;
writeln(a);
<span>end.</span>
//Pascal ABC.NET 3.1 сборка 1256
uses
GraphABC;
Var
n:integer;
procedure square(var n:integer);
begin
readln(n);
rectangle(window.Center.X-n div 2,window.Center.Y-n div 2,window.Center.X+n div 2,window.Center.Y+n div 2);
end;
procedure points(n:integer);
Var
x,y,i:integer;
begin
i:=0;
while i<1000 do
begin
x:=random(window.Center.X-n div 2+1,window.Center.X+n div 2-1);
y:=random(window.Center.Y-n div 2+1,window.Center.Y+n div 2-1);
setpixel(x,y,rgb(random(255),random(255),random(255)));
inc(i);
end;
end;
begin
randomize;
square(n);
points(n);
end.
Ответ:
I5 7400 3Ghz-это процессор
8Gb-это,скорее всего оперативная память
На счёт 120Gb не знаю
SSD 1TB -Ну это SSD,что не удивительно.Он нужен для того Пк загружался быстрее,также работа проходила комфортнее,например документы будут открывать значительнее быстрее
Объяснение:
k = int(input()) /строк на странице
n = int(input()) / номер строки, что дан
s = n // k + (n % k != 0) /целочисленное деление, если есть остаток делает + 1/
print(s)