Var s,k integer; //обозначили переменные.Тип integer говорит что это целые числа.
Begin
s:=0; //Присваеваем s значение 0.Тоесть s у нас в начале программы ровно нулю.
for k:=3 to 8 do s:=(s+3)*k; //Тут k присваеваем значение 3.Поэтому, от 3 до 8 делаем " s:=(s+3)*k".Тоесть (8-3=5) 5 раз выполняем s:=(s+3)*k.
Пишу ход выполения программы:
s:=(0+3)*3=9 // тут значение s стало ровно 9.
s:=(9+3)*3=12*3=36 // тут значение s стало ровно 36. И так далее.
s:=(36+3)*3=39*3=39*3=117
s:=(117+3)*3=120*3=360
s:=(360+3)*3=363*3=1089
write(s); // выводим значение рассчитанной s.
End. // конец программы.
Program pr;
uses crt;
Var a, x:integer;
Begin
Writeln('Vvedite chislo');
readln(a);
x:=a mod 10;
if x mod 2=0
then Writeln('Chotnoe')
else Writeln('ne chotnoe');
readln;
end.
Судя по данным и диаграмме:
(3+3)/2
3-2=1
3-2=1
Соотвественно:
D2 должно равняться 1, под это условие подходит только:
1) =A1-2
64 символа можно закодировать 6 битами, т.к. 2^6 = 8*8 = 64.
Ответ. 6 бит.
<em>1. Современное, короткое и быстрое решение</em>
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(16,-20,80); a.Println;
Writeln('S=',a.Where((x,i)->i.IsOdd).Sum)
end.
<u>Пример</u>
61 64 70 22 76 22 18 44 36 53 29 -9 42 -19 66 34
S=211
<em>2. А вот так все еще учат в большинстве школ (стиль образца 70-80х годов прошлого века)</em>
const
n=16;
var
i,s:integer;
a:array[1..n] of integer;
begin
Randomize;
s:=0;
for i:=1 to n do begin
a[i]:=Random(101)-20;
Write(a[i],' ');
if i mod 2=0 then s:=s+a[i]
end;
Writeln;
Writeln('S=',s)
end.