2 года назад

Что такое Pascal в информатике?

2 ответа:

лена25082 года назад

0 0

Один из наименее известных языков програмирования,используется для обучения програнированию в старших классах и на первых курсах вузов.

Елена Лебедь [1]2 года назад

0 0

Это наиболее известный язык программирования, используется для обучения старших классов программированию:)

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

Что относится к системному обеспечению

Про Вас

Системное по............

0 0

4 года назад

Прочитать ещё 2 ответа

Pascal.Составить программу, заполняющую массив из 42 элементов целыми числами, кратными 7.

Мариш1986

===== PascalABC.NET =====

begin

var a := ArrGen(42, i -> 7 * i, 1);

a.Println

end.

0 0

2 года назад

Помогите, пожалуйста, написать программу для паскаль abc, которая меняет в массиве наибольшее и наименьшее число. Например, Исхо

анастасия041214 [13]

Program n1;
const n = 6;
var a : array[1..n] of integer;
i, max, min, temp : integer;
begin
for i := 1 to n do readln(a[i]);
min := 1;
max := 1;
for i := 1 to n do
begin
if a[i] > a[max] then max := i;
if a[i] < a[min] then min := i;
end;
temp := a[max];
a[max] := a[min];
a[min] := temp;
for i := 1 to n do write(a[i],' ');
end.

0 0

3 года назад

Дан массив из N целых чисел а₁,а₂...аⁿ.Вам нужно проверить,есть ли в этом массиве три числа сумма которых равна нулю. можете сде

happy2017

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50); a.Println;
var m:=n-1;
var found:=false;
for var i:=0 to m do begin
 for var j:=0 to m do
 if i=j then continue
 else begin
 for var k:=0 to m do
 if (k=i) or (k=j) then continue
 else
 if a[i]+a[j]+a[k]=0 then begin
 Println('Решение:',a[i],a[j],a[k]);
 found:=true;
 break
 end;
 if found then break
 end;
 if found then break
 end;
if not found then Writeln('Нет нужной тройки чисел')
end.

Примеры
n= 13
-25 -29 41 -19 -9 50 -23 36 33 23 48 -6 -5
Решение: -25 -23 48

n= 8
-33 -23 -3 -5 -5 -20 -22 34
Нет нужной тройки чисел

0 0

2 года назад

Прочитать ещё 2 ответа

Петр наугад тянет из непрозрачного мешочка одну конфету из 16. Какое кол-во информации он получит ; когда достанет конфету, есл

perumka

N=16 | N=2^i | 16=2^i | I= 4 бита

0 0

4 года назад