Все категории

4 года назад

Помогите пожалуйста! Дам 10 баллов!

Знания

Информатика

1 ответ:

anton2048 [7]4 года назад

0 0

Для запуска программы Shift F9.

Читайте также

Найдите x:1)16x бит=128 Кбайта2)8x бит=32 Кбайта

тагир галиакберов [1]

1) 16х=128 кб - переведём кб в бит 128 кб = 128 *1024 * 8 = 1048576

дальше проще 16х=1048576

х=1048576 : 16

х=65536

2) 8х=32 кб - так же переводим в биты 32кб=32*1024*8=262144 бит

8х=262144

х=262144 : 8

х=32768

0 0

4 года назад

Составьте программу для решения задачи с5 из встроенного задачника. ПАСКАЛЬ Рисунок на фото!

kupe41

Ответ:

uses Robot;

begin

Task('c5');

while freefromright do

begin

paint;

right;

down

end

end.

0 0

4 года назад

Наступил сентябрь и начался учебный год это суждение?

trubachv

Да это суждение))))!!

0 0

4 года назад

составить графическую схему алгоритма и написать программу с организацией ввода-вывода с помощью текстовых файлов. В каждой зада

Egor1 [6]

var a:array[1..100,1..100]of integer;
i,j,c,b,n,k:integer;
begin
readln(n);
readln(c,b);
for i:=1 to n do for j:=1 to n do a[i,j]:=random(9)+1;
for i:=1 to n do begin for j:=1 to n do write(a[i,j],' '); if j=n then writeln; end;
writeln;
for i:=1 to n do
for j:=1 to n do
if (i>n-j+1) or (j<n-i+1) then if (a[i,j]<=c) and (a[i,j]>=b) then inc(k);
writeln(k);
end.

0 0

3 года назад

Задачи в паскале Составьте программу, которая рисует по вертикали вдоль левого края графического окна ряд красных кругов радиуса

саня 09

program krug;
uses graphabc;
var x,y,r,i:integer;
begin
setwindowsize (640,480);
setwindowtitle ('Êðóã');
setpencolor (clred);
setpenwidth (4);
x:=50;
y:=50;
r:=40;
for i:=1 to 10 do
begin
circle(x,y,r);
x:=x+80;
end;
end.

0 0

4 года назад