//Задание №1
//Сумма и произведение двух чисел
var
a,b: integer;
begin
readln(a,b);
writeln('Сумма = ',a+b,' Произведение = ',a*b); по сторонам
end.
//Задание №2
//Площадь и периметр прямоугольника
var
a,b: integer;
begin
readln(a,b);
writeln('Площадь = ',a*b,' Периметр = ',(a+b)*2);
end.
// Задание №3
var
a,b,c,d: integer;
begin
write('введите a,b,c,d ');
readln(a,b,c,d);
writeln(a,'/',b,'+',d,'/',c,'=',a/b+d/c:0:2);
end.
Тестовое решение:
введите a,b,c,d 2 3 4 5
2/3+5/4=1.92
// Задание №4
var
r: real;
begin
write('введите радиус ');
readln(r);
writeln('Длина окружности радиуса ',r,' = ',2*pi*r:0:2);
writeln('Площадь круга радиуса ',r,' = ',pi*r*r:0:2);
end.
Тестовое решение:
введите радиус 5
Длина окружности радиуса 5 = 31.42
Площадь круга радиуса 5 = 78.54
// Задание №5
// Сумма цифр трехзначного числа
var
a,s: integer;
begin
readln(a);
while a<>0 do begin
s:=s+ a mod 10;
a:=a div 10;
end;
writeln('Сумма цифр',s)
end.
<span>обмен ему придется отдать количество конфет, равное разности позиций обмениваемых элементов (позиции нумеруются слева направо числами от 1 до 10). Например, если в списке 10, 9, 8, 7, 6, 1, 5, 4, 3, 2 он поменяет 10 и 2 местами, то ему придется отдать 10 – 1 = 9 конфет (10 – номер позиции, на которой стоит 2, 1 – номер позиции, на которой стоит 10). Какое наименьшее количество конфет нужно Антону, чтобы упорядочить список? В итоге все элементы списка должны быть расположены в порядке возрастания слева направо. Пример. Если у Антона такой список: 2 1 3, то ему хватит одной конфеты – достаточно поменять местами 2 и 1.</span>
<em>// PascalABC.NET 3.3, сборка 1633 от 10.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ArrRandom(10,-50,50).Println.Sum.Println;
end.
<u>Пример</u>
31 19 1 -45 -14 -32 8 -46 46 -18
-50
<h2>Задание </h2>
Сложить E43C и D15A в шестнадцатеричной системе счисления
<h2>Решение</h2>
Записываем два числа в столбик и складываем по разрядам. Первым действием складываем C и A. Вспомним, какие числа содержит в себе шестнадцатеричная система счисления: от 0 до 9, а также буквы A, B, C, D, E и F, соответственно равные 10, 11, 12, 13, 14 и 15. Итак, складываем C и A: 12 + 10 = 22. Так как мы работаем в шестнадцатеричной системе счисления, то происходит переполнение разряда (аналогия - в нашей, десятичной системе счисления такое переполнение происходит, когда мы складываем, например, 5 и 6: 5 + 6 = 11 - происходит переполнение нашей системы и мы включаем десятки). Нужно разложить 22 на сумму числа и 16. 16 + 6 = 22. Записываем под этими разрядами 6 и ставим точечку над следующим разрядом. Переходим к следующему: 3 + 5 = 8. Переполнения нет. А у нас ещё точечка: 8 + 1 = 9. Записываем под этими разрядами 9. Переходим к следующему: 4 + 1 = 5. Записываем. Следующий (последний): E + D = 14 + 13 = 27 = 16 + 11. 11 в шестнадцатеричной системе счисления - это B. Единичку записываем в следующий разряд (а поскольку его нет - в самое начало получившегося числа).
<h2>Ответ</h2>
1B596