4 года назад

Помогите пожалуйста какие языки прогоромирование есть и рассказать о одном языке прогромирование срочно нужно

2 ответа:

0 0

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

Evgeniy1506494 года назад

0 0

3 основных 1)Алгоритмический 2)Бейсик 3)Паскаль

Паскаль-это универсальный язык программирования, позволяющий решать самые разнообразные задачи обработки ниформации.

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

В программе Паскаль Дано трёхзначное число. Определите, является ли сумма цифр этого числа чётным числом. Если да, то выведите 1

Serfpay [7]

Var x,sum:integer;
begin
readln(x);
sum:=1;
while x>0 do begin
sum+=x mod 10;
x:=x div 10;
end;
writeln(sum mod 2);
end.

0 0

4 года назад

Сложить числа A16 и 1110 — Сумму представить в двоичной системе счисления.

Пётр Новиков [14]

A16 + 1110 = 1B26
или 1101100100110 в двоичной

0 0

4 года назад

Расшифруйте фразу персидского поэта Джалаледдина Руми “кгнусм ёогкг фесл тцфхя фзужщз фхгрзх ёогксп”, закодированную с помощью ш

Татьяна157711

Закрой глаза свои пусть сердце станет глазом

0 0

4 года назад

Срочно, помогите светлые умы. Дана колода из 36 игральных карт (это наш алфавит). Каково количество информации, измеренной в бит

Челябинский пират [68]

Ответ:

5.17 бит, 1.17 бит.

Объяснение:

а) в колоде одна дама пик, поэтому шанс ее достать равен 1 из 36.

По формуле Хартли получаем ㏒₂36 бит. Или, примерно, 5.17 бит.

б) Старше десятки в колоде из 36 карт будут валет, дама, король и туз. 4 карты одной масти. Мастей 4, поэтому всего таких карт 4×4=16. Шанс достать такую карту равен 16 из 36 или 4 из 9. Снова по формуле Хартли

получаем ㏒₂(9/4) бит. Или, примерно, 1.17 бит.

0 0

3 года назад

Дана последовательность, расположить ее элементы, кратные 3, по убыванию.(записать на языке паскаль)помогите срочно

АллаП

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

begin

var n := ReadInteger('n=');

var a := ArrRandom(n, 10, 99); // для одинаковых позиций вывода

a.Println;

// элементы, кратные трем, упорядочить по убыванию

// прочие оставить на своих местах

var v := a.Select((v, i) -> (v, i))

.Where(t -> t[0] mod 3 = 0)

.OrderByDescending(t -> t[0])

.ToArray;

var w := v.Select(t -> t[1]).Sorted.ToArray;

for var i := 0 to w.High do

a[w[i]] := v[i][0];

a.Println

end.

0 0

4 года назад