1)
program test;
var number: integer;
begin
write('Enter the number: ');
readln(number);
number:=abs(number)-2;
writeln(number);
readln;
end.
2)
program test;
var number, temp: integer;
begin
write('Enter the number: ');
readln(number);
temp:=number mod 10;
writeln(temp, '^2=', temp*temp);
readln;
end.
У меня это получилось сделать так:
//PascalABC.NET
var
n, k : integer;
x, s : real;
begin
write('x = ');
readln(x);
write('n = ');
readln(n);
s := 0;
for k := 1 to n do
s += ((power(x,1/3)/k - exp(-k*x)) * sin(k * x));
writeln(' res = ', 1 / (x*x + sqrt(x)) * s)
end.
Сначала роботу приказали потом вышел в теплицу и собирает плоды с семи растений
Все приводим к основанию 2 и к битам, поскольку 8=2³, 16=2⁴, 1 байт=2³ бит,
1 Кбайт=2¹⁰ байт=2¹³ бит, 1 Мбайт=2²⁰ байт=2²³ бит
Рабочее поле блокнота это область текстового ввода, а область рабочего стола это графическая среда в виде папки