//PascalABC.NET
uses GraphABC;
var c: integer;
begin
window.IsFixedSize := true;//запрет изменения размера экрана
window.Clear(cllightblue);//очистка экрана синим цветом
pen.Color := clred;//меняем цвет пера на красный
for var i := 0 to 19 do//цикл для отрисовки линий
begin
c := (window.Height div 19) * i;//сдвиг линнии по y
line(0, 0 + c, window.Width, window.Height - c);//рисуем линию
end;
end.

0 0

4 года назад

Задача на Pascal: На вход программы подаются значения элементов трех целочисленный массивов: А1...А30, В1...В40, С1...Сn(n<=4

Илья Пелипенко [50]

program raf105;

const

n = 35;

var

a: array[1..30] of integer;

b: array[1..40] of integer;

c: array[1..n] of integer;

i : integer;

begin

writeln('Заполните массив A');

for i:=1 to 30 do

readln(a[i]);

writeln('Заполните массив B');

for i:=1 to 40 do

readln(b[i]);

writeln('Заполните массив C');

for i:=1 to n do

readln(c[i]);

for i:=1 to 40 do

begin

if (a[i] < 0) or (b[i] < 0) then

begin

writeln('Нет');

break

end;

if c[i] < 0 then

begin

writeln('Да');

break

end;

end.

<h3>PascalABC</h3>

0 0

1 год назад

1.АилиС и не В 2.Аили не А и не В или В 3.(не А и не В ) и не (А и В) помогите пожалуйста .

skorpion67 [8]

1.
При 101 значение равно 1 в остальных 7 комбинациях 0
2.
Все 1, тождественная 1
3.
<span>При 00 значение равно 1
в остальных 3 комбинациях 0</span>
<span>
См. приложение.

</span>

0 0

1 год назад

1. Какие из перечисленных ниже характеристик относятся к оперативной, а какие – к внешней памяти?а) Является энергозависимой.б)

dimon120593

1)
operativnaya pamiati:

0 0

4 года назад