Смотри сначало у тебя заходит k=1 и выполняется вычисления s=150-12=138 потом программа говорит перейти к следующей к=2 и снова идёт алгоритм s=138-12=126,k=3 s=126-12=114 , k=4 s=102 ,k=5 s=90 , k=6 s=78,k=7 s=66, k=8 s=54, k=9 s=42, k=10 s=30 т.к больше к нет , то он выведит ответ
(c) понятность это-<span>разборчивость, ясность, вразумительность, отчетливость, внятность, доходчивость, доступность, общепонятность.
(а)моссовость это отношение к алгоритмам это правильно,, (б)результативность тоже самое на результат чтобы хорошо выполнить
(д)точность это</span><span>коммуникативное качество речи, возникающее как соответствие смысловой стороны речи предметно-вещной действительности и/ли системе выражаемых понятий...
я думаю под (с) а там сам решай опр. дал
</span>
1.572864
1024×768×2=1572864
1572864 байт = 1.572864 мегабайт (10⁶ байт)
var a,b,n,i:integer;
begin
write('Введите a,b,n: ');
readln(a,b,n);
repeat
write(a,' ');
a:=a+n
until a>b
end.
или
var a,b,n,i:integer;
begin
write('Введите a,b,n: ');
readln(a,b,n);
while a<=b do
begin
write(a,' ');
a:=a+n
end
end.
Sub HOK()
Dim c As Long, NOK As Long
a = CInt(InputBox("Введите первое число"))
b = CInt(InputBox("Введите второе число"))
If a = b Then
NOK = a
Else
c = a * b
Do
If a > b Then a = a - b Else b = b - a
Loop Until a = b
NOK = c / a
End If
MsgBox "НОК=" + Str(NOK)
End Sub