Сумма андрея + (сумма андрея/100*простые проценты)
Я надеюсь тебе будет понятно мои каракули
Var a: array [1..50] of integer ;
d:integer;
begin
write ('Введите первый член a1 = ');
read(a[1]);
write('Разность d = ');
read(d);
writeln(a[1]);
for var i:=2 to 50 do begin
a[i]:=a[1]+d*(i-1);
writeln(a[i]);
end;
end.
Дано:
Мулььи N=16;120
Пульти N=32;96
Найти i
Решение. N=2i
1)16=2i, i=4(бит) на 1 символ в племени Мульти
2) 32=2i=i=5(бит) на 1 символов в племени Пульти
3) 120*4=480(бит) сообщение племени Мульти
4)96*5=480(бит) сообщение племени Пульти
Ответ: они равны)
Program Summa;
Uses Crt;
var s,n,c:integer;
begin
clrscr;
write('Введите числа коннц ввода 0: ');
s:=0;c:=0;
repeat
readln(n);
c:=c+1;
if (n mod 2)=0 then
if ((n>=5)and (n<=25)) then s:=s+n;
until (n=0) or (c=1000) ;
write('Сумма ',c,' чётных чисел в диапазоне от 5 до 25:',s);
readkey;
end.
:D