// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var a:=ReadArrInteger('Введите 5 целых чисел',5);
Writeln('Разница между min и max: ',a.Max-a.Min)
end.

<u><em>Тестовое решение:</em></u>
Введите 5 целых чисел 8 14 -5 0 7
Разница между min и max: 19

0 0

4 года назад

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

Сергей Ковальчук

Var
n, k, i: integer;
s: string;
begin
write('Введите число: ');
read(s);
write('Введите исходную систему счисления: ');
read(k);
for i := 1 to length(s) do
n := n * k + ord(s[i]) - 48;
write(s, '(2) = ', n, '(10)');
end.

Пример работы программы:
Введите число: 101000111000111
Введите исходную систему счисления: 2
101000111000111(2) = 20935(10)

0 0

4 года назад

Помогите срочно нужна помощь, таблица (Список товаров в магазине) 6 полей, 3 записи

элизабетта [187]

Назв. МясоРыбаСырСояМылоЮла

Цена 300р.200р.100р.20р.15р. 900р.

Кол-во 7 5 43 15 80 3

0 0

4 года назад

Pascal. Информатика. Нужно написать программу на языке Pascal. Помогите, пожалуйста.

Ravshan Yuldashev

Program p1;
Var a: integer:
Begin
Writeln('Введите число') Readln(a);
If a mod 2 = 0 then writeln('chet') else writeln('ne chet');
End.
Ну вроде так)

0 0

3 года назад