1. найти сумму чисел с 1 до n
Program ffff;
Uses crt;
var n,i,s:integer;
begin
writeln ('Кол-во цифр');
readln (n);
for i:=1 to n do
s:=s+i;
writeln (s);
end.
Если сегодня четное число месяца , то я беру с собой на 10 рублей больше чем обычно
Program ffff;
Uses crt;
var n,i:integer;
begin
writeln ('Сколько я беру обычно');
readln (n);
writeln ('Какое сегодня число');
readln (i);
if i mod 2 = 0
then n:=n+10;
writeln (n,' рублей я сегодня беру');
end.
Точный элемент экрана дисплея это:
пиксель.
Восьмеричная:
двоичное число разбиваем на триады с конца и переводим в десятичную
1000110010010 - 2
110 - 6
000 - 0
001 - 1
ответ - 1062 в восьмеричной
16 ричная:
разбиваем на тетрады
0010 - 2
0011 - 3
0010 - 2
ответ 232 в 16ричной
Десятичная:
1000110010<span> = 1∙2^</span>9+0∙2^8+0∙2^7+0∙2^6+1∙2^5+1∙2^4+0∙2^3+0∙2^2+1∙2^1+0∙2^0<span> = 512+0+0+0+32+16+0+0+2+0 = 562 в десятичной
</span>
чтобы перевести в любую другую систему можно взять десятичное число (в данном случае 562) и перевести в нужную систему (например в троичную). (ответ в приложении)
1кбайт=1024байт
1гбайт=1024кбайт=1024*1024байт=1048576байт
<u>PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50); a.Println;
var b:=new integer[n];
for var i:=0 to n-1 do
b[i]:=a[:i+1].Max;
b.Println
end.
<em>Пример</em>
n= 15
-21 27 -19 -7 34 -20 25 36 40 -2 40 43 -37 41 7
-21 27 27 27 34 34 34 36 40 40 40 43 43 43 43