2)var x,y:integer;beginreadln (x,y); while x<16 do begin if x>y then beginx:=x-2;y:=y+4 end else beginx:=x+5;y:=y-3; end; end;writeln ('x=',x,'y=',y);end.
криво но работает,там в таблице строка слева на право 16 11 16 12 и так вниз,так условие постоянно не выполняется (16<16 не выполняется)
3)var x,y:real;beginreadln (x,y);while x<0 dobeginif x<y thenbeginx:=x+1;y:=y/2;endelsebeginx:=x+3;y:=y-2;end;end;x:=x-5;y:=y+3;writeln ('x=',x,'y=',y);end.
таблицу сам
Заполни пустые ячейки таблицы.<span>Слово Значение слова
Понятие помогите</span>
Замечание: цифры нумеруются слева направо.
алг Число
нач
цел n, n1, n2, n3, n4, r
вывод "Введите целое число", нс
ввод n
n1:= div(n,1000)
n2:= mod(div(n,100),10)
n3:= div(mod(n,100),10)
n4:= mod(n,10)
r:= (n2+n4)-(n1+n3)
вывод r
кон