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. // конец программы.
Всего две стороны у флажка
Флажков пять
Максимальное количество возможных сигналов =
= 2^5 =32 сигнала
Хм...видимо вопрос не правильный, у двузначного числа сумма цифр не может быть однозначным числом, только двузначным!
вот тебе код Pascal:
<span>Код Pascal
<span>1
2
3
4
5
6
7
8
9
<span>var a,b,n,kod:integer;
begin
write('Введите двузначное число - ');
readln(n);
a:=n div 10;
b:=n
mod 10;
if a+b>9 then writeln('Сума цифр двузначное число')
else
writeln('Сума не двузначное число');
end.</span></span></span>
<span><span>var
a, b, c : longint;</span><span>function nod3 (a, b, c :longint) : longint;
begin
nod3 := nod (nod (a, b), c);
end;</span><span>function nod(var a, b: longint): longint;
begin
if (a = 0) or (b = 0) then
if a = 0 then
nod:= b
else
nod:= a
else
if a >= b then
nod:= nod( a mod b, b)
else
nod:= nod( a, b mod a)
end;</span><span>begin
read (a, b, c);
writeln (nod3 (a, b, c));
end.</span></span>