4 года назад

Эта фигура получается при использовании в MS paint инструмента прямоугольник и удержаний клавиш Shift

Знания

Информатика

1 ответ:

одержимый дьяволо... [61]4 года назад

0 0

Эта фигура - квадрат, ваш кеп

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

HELP!!! Заменить значения всех элементов главной диагонали массива на нулевые

Флина Тач [1]

Const z = 50;
var A:Array[1..z,1..z] of integer;
n,i,j:integer;
begin
write('Введите размер массива ');
readln(n);
for i:=1 to n do
beginfor j:=1 to n do
begin
A[i,j]:= random(100)-50;
write(A[i,j]:4);
end;
writeln;
end;
writeln;writeln;
for i:=1 to n do
beginfor j:=1 to n do
begin
if i=j then
A[i,j]:=0;
write(A[i,j]:4);
end;
writeln;
end;end.<span>
</span>

0 0

4 года назад

Создайтн программу, котарая предлогает ввести с клавиатуры имя пользователя, а затем приветствует его.

Александр11111111...

Program test;
Var
a:string;
Begin
Write('Введите ваше имя: ');
Readln(a);
Writeln(' Привет ', a);
End.

0 0

4 года назад

Статья набранная на компьютере содержит 8 страниц на каждой странице 56 строки,в каждой строке 40 символов.Определите информацио

Альсеида

16 бит=2байта

Чтобы перевести из байт в Килобайты необходимо разделить на 1024

(8*56*40*2)/1024=35Кб

0 0

4 года назад

Доклад на тему: обработка информации в компьютере. Только можно сами, а не с интернета.

Styles [1]

Obrabotka informacii v kompiutere posmotrite v internete tak nevozmojno

0 0

4 года назад

Составьте программу определяющую, является ли число x простым

StaticZero [31]

Uses crt; var a : real; p : boolean; i : integer; procedure haltproc; begin writeln('неверные данные'); writeln('a>=2');readln; halt; end; begin clrscr; write('a=');readln(a); if a<2 then haltproc; if a=2 then begin writeln2('простое'); readln;halt; end; p:=true; for i:=2 to trunc(a-1) do if a/i=trunc(a/i) then p:=false; if p=true then write('простое') else write('не простое'); readln; end.

0 0

4 года назад