M = [-10, -9 .. 10]
f(x) = x*x - (if (x > 1) then x else sin(x))
main = print(map f(m))
// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017
1)
begin
var n:=ReadInteger('Введите n-> ');
var s:=0;
for var i:=1 to n do
s+=i*i;
Println('Сумма:',s);
end.
Пример:
Введите n-> 3
Сумма: 14
2)
begin
var n:=ReadInteger('Введите n-> ');
var s:=1;
for var i:=1 to n do
s*=i;
Println('Сумма:',s);
end.
Пример:
Введите n-> 3
Сумма: 6
// процедура обмена значений переменных а и b
procedure swapp(var a,b:integer);
var c: integer;
begin
c:=a;
a:=b;
b:=c;
end;
// основная программа
var a,b,c: integer;
begin
write('числа a b c через пробел: ');
readln(a,b,c);
if a>b then swapp(a,b);
if b>c then swapp(b,c);
writeln('среднее по значению: ',b);
end.
Ввод -вывод:
числа a b c через пробел: 25 14 18
среднее по значению: 18
Это таблица перевода от 0 до F
Windows-1251 — набор символов и кодировка, являющаяся стандартной 8-битной кодировкой для русских версий Windows до 10-й версии
Или проще говоря кирилическая ASCII
длина - 8 бит