Ответ:
Думаю, что трассировка будет такой:
1 | 70 | 2 | False
1 | 70 | 3 | False
1 | 70 | 4 | False
1 | 70 | 5 | False
1 | 70 | 6 | True
6 | 40 | 7 | False
6 | 40 | 8 | False
6 | 40 | 9 | False
6 | 40 | 10 | False
Объяснение:
Если есть по рукой компьютер, то просто запустить этот фрагмент кода в редакторе. Иначе аккуратно заполнять значения строчку за строчкой в таблице трассировки.
1. у - сумма 1+2+3+...+9 (всего 9 проходов, на каждом увеличивается на i)
y=45
2. y - число проходов цикла от 10 до 5
у=7
3. Считаем по шагам...
[0 проходов цикла]: y=1, x=15
[1]: x=15-3=12, y=1*12=12
[2]: x=12-3=9, y=12*9=108
[3]: x=9-3=6, y=108*6=648
[4]: x=6-3=3, y=648*3=1944
[5]: x<=5.
у=1944
4. На последнем шаге x станет равным нулю (каждый раз уменьшается на 2, пока x>=0). Тогда y=0*y+0=0
y=0
Var a,b,c: real;
Begin
write('Введите 3 числа: ');
readln (a,b,c);
if c = sqrt(a*a + b*b) then writeln('Число ',c,' является гипотенузой прямоугольного треугольника со сторонами ',a,' ',b,' ',c)
else if a = sqrt(c*c + b*b) then writeln('Число ',a,' является гипотенузой прямоугольного треугольника со сторонами ',a,' ',b,' ',c)
else if b = sqrt(a*a + c*c) then writeln('Число ',b,' является гипотенузой прямоугольного треугольника со сторонами ',a,' ',b,' ',c)
else writeln('Эти числа не являются сторонами прямоугольного треугольника')
End.
Program LOL2016;
var n,s,r:integer;
begin
readln(n);
s:=0;
while(n <> 0) do begin
r:=n mod 10;
s:=s+r;
n:=n div 10;
end;
writeln(s);
end.
<span>
если что то не понятно просто спроси и я обьясню :)</span>
Сделай её в программе, в которой вам сказал учитель, нажми в меню программы файл, потом нажми сохранить как и выбери место (флешку), где нужно сохранить файл