program zad4;
uses crt;
var
s,i,n: integer;
begin
clrscr;
writeln('Вычисление
суммы первых n положительных чисел');
writeln('введите
количество суммируемых чисел');
readln(n);
s:=0;
for i:=1 to n do
<span>
begin</span>
<span>
If n mod i =0 then</span>
<span> s:=s+n;</span>
<span> end;</span>
writeln('сумма
первых ',n,' положительных чисел равна ',s);
readln;
<span>end.</span>
<span>
</span>
<span>
</span>
<span>Попробуй как-то так</span>
Var
mas:array [1..10] of integer;
i:integer;
begin
writeln('Введите числа массива');
for i:=1 to 10 do
read(mas[i]);
for i:=1 to 10 do
if mas[i]<0 then
mas[i]:=0;
for i:=1 to 10 do
write(mas[i],' ');
end.
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (x,n):=ReadInteger2('x,n =');
var ans :=1;
while (n > 0)do
begin
ans*=x; dec(n);
end;
Writeln(ans);
end.
<u>Пример:</u>
x,n = 2 10
1024
Я не знаю как кодируются русские буквы, но глядя на цифровую последовательность
1 2 1 2 1 3
225 242 225 242 225 244
тут всего 3 буквы получается
Буквы идут поочереди, только последняя отличается
т.е должно быть 3 разные буквы
я думаю это в) АРАРАТ
тут 3 буквы А, Р, Т
В фразе "<span>Семь раз отмерь, один раз отрежь!" 33 символа.
33*16 = 528 бит или 66 байт
</span>