Задача 1. Найти сумму чисел от 1 до 10.
Program n1;
var
a, b, sum :integer;
begin
sum:=0;
pr:=1;
for a:=1 to 10 do
begin
sum:=sum+a;
end;
writeln ('сумма чисел от 1 до 10 = ',sum);
end.
ЗАДАНИЕ.
Используя образец (задача 1), написать программу нахождения произведения
чисел от 3 до 13.
1.
456,78(10)=4*10^2+5*10^1+6*10^0+7*10^-1+8*10^-2
2.
10011,011(2)=1*2^4+0*2^3+0*2^2+1*2^1+1*2^0+0*2^-1+1*2^-2+1*2^-3
3.
Иерархическая структура памяти ЭВМ - является традиционным решением проблемы хранения больших объемов данных. На самом верху иерархии находятся регистры процессора. Доступ к регистрам осуществляется быстрее всего. Дальше идет кэш-память, объем которой сейчас составляет от 32 Кбайт до нескольких мегабайтов. Затем следует основная память, которая в настоящее время может вмещать от 16 Мбайт до десятков гигабайтов. Затем идут магнитные диски и, наконец, накопители на магнитной ленте и оптические диски, которые используются для хранения архивов.
4.
Program Perimeter_of_a_rectangle;
var
A: integer;
B: integer;
PERIMETER: integer;
begin
write('Введите сторону А: ');
read(A);
write('Введите сторону B: ');
read(B);
PERIMETER:=A*2+B*2; // Вычисление периметра прямоугольника
write('Периметр прямоугольника равен: '+PERIMETER);
end.
6.
Program A_or_B;
var
A, B: longint;
begin
write('Введите число A: ');
read(A);
write('Введите число B: ');
read(B);
if A > B then
writeln('Число А больше числа В');
if B > A then
writeln('Число В больше числа А');
end.
Надеюсь удачи :)