<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var (s,v):=ReadReal2('s,v->');
Println('Сумма после ок. срока=',Range(ReadInteger('a->'),ReadInteger('b->')).Aggregate(real(0),(i,j)->s+i+(i*v/100)));
end.
Пример:
s,v-> 100 25
a-> 10
b-> 20
Сумма после ок. срока=4256.613
</span>
var a,b,c:integer;
begin
write('Введите a = ' );readln(a);
if a>=0 then a:=sqr(a) else a:=sqr(a*a);
write('Введите b = ' );readln(b);
if b>=0 then b:=sqr(b) else b:=sqr(b*b);
write('Введите c = ' );readln(c);
if c>=0 then c:=sqr(c) else c:=sqr(c*c);
writeln('a = ',a,' b = ',b,' c = ',c);
end.
Как известно, десятичная система состоит из 10 символов: 0,1,2,3,4,5,6,7,8,9. Логично что 16-тиричная состоит из 16 символов. Так вот эти новые 6 символов и есть буквы: <span>A=10, B=11, C=12, D=13, E=14, F=15. Для перевода из десятичной системы в двоичную, восьмеричную и шестнадцатиричную системы нужно производить деление столбиком на основание системы ( в данном случае оно 16). Деление происходит до тех пор, пока полученный остаток от деление не будет меньше основания системы.
</span>Например нужно перевести число 1597 в десятичной системе в шестндацатиричную:
1597/16=99 и остаток 13 (D)
99/16=6 и остаток 3 (3)
6/16=0 и остаток 6 (6)
Теперь соединяем полученные цифры снизу вверх и получаем число 63D
Макро - микроб
микро - микропроцессор
Мега - АЭС
Научить солдат военному делу и десциплине