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.
таблицу сам

0 0

1 год назад

Составьте программу для вычисления суммы натуральных чисел от 20 до 99.Решите задачку в двух вариантах-с использованием оператор

You5 [4]

Var i,s:integer;
begin
i:=20;
while i<100 do
begin
s:=s+i;
i:=i+1
end;
writeln('Ответ: ',s)
end.

var i,s:integer;
begin
i:=20;
repeat
s:=s+i;
i:=i+1;
until i>99;
writeln('Ответ: ',s)
end.

0 0

4 года назад

Информатика 9 класс. Доступ к файлу home.jpg, находящемуся на сервере travels.ru, осуществляется по протоколу http. Фрагменты ад

Янахмел [1]

Б http
В ://
Ж travels.
Е ru
Г /
Д home
А .jpg
http://travels.ru/home.jpg

0 0

4 года назад

Прочитать ещё 2 ответа