Определите, что будет напечатано в результате работы следующей программы: Var s,k integer; Begin s:=0; for k:=3 to 8 do
10-11 класс
|
s:=(s+3)*k;
write(s);
End.
P.S. Желательно подробно.
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. // конец программы.
Другие вопросы из категории
же объеме видеопамяти, если использовать 256-цветную палитру и длина изображения больше ширины в 4,5 раза?
Читайте также
int[] mas = new int [] {-1, 0, 2, -8, 4, -9, 3, -4, 9, -3 };
int i = 0;
while (mas[i] < 0)
{ i++; Console.WriteLine(mas[i]);}
//24.Определить что будет напечатано в результате выполнения фрагмента программы:
int[] mas = new int[] { -1, 0, 2, -8, 4, -9, 3, -4, 9, -3 };
int i = 5;
do i--; while (mas[i] > 0);
Console.WriteLine(i);
//25.Определить что будет напечатано в результате выполнения фрагмента программы: int[] mas = new int[] { -1, 0, 2, -8, 4, -9, 3, -4, 9, -3 };
int k = 0; foreach (int el in mas)
if (el > 0) k+=el;
Console.WriteLine(k);
В таблице Dat хранятся данные о количестве сделанных учениками заданий (Dat[1] – заданий сделал первый ученик Dat[2] – второй ученик и т.д.). Определите, что будет напечатано в результате работы следующей программы.
Алгоритмический язык
алг
нач
целтаб Dat[1:12]
цел k, m , month
Dat[1]:=5; Dat[2]:=5
Dat[3]:=6; Dat[4]:=8
Dat[5]:=4; Dat[6]:=5
Dat[7]:=4; Dat[8]:=7
Dat[9]:=4; Dat[10]:=4
Dat[11]:=8
Dat[12]:=7
month := 1; m:= Dat[1]
нц для k от 2 до 12
если Dat[k] <= m то
m:=Dat[k]
все
кц
вывод month
кон
while k < 25 do begin
s:=s+k;
k:=k+2;
end;
write(s);
end.
while k < 50 do begin
s:=s+k;
k:=k+1;
end;
write(s);
end.
while k < 11 do begin
s:=s+k;
k:=k+1;
end;
write(s);
end.