ПОМОГИТЕ ПОЖАЛУЙСТА ДАЮ 20 БАЛЛОВ!!!!!!!!! 1)Сколько строк напечатает программа:
var
i,j:integer;
begin
FOR i:=5 DOWNTO 1 DO
FOR j:=7 TO 10 DO
writeln('Мое ДЗ.');
end.
2)Каким будет результат выполнения программы?
var
i:integer;
begin
i:=1;
while i<=10 do begin
i:=i+10 mod 3; end;
writeln('i= ',i);
end.
3)Чему будет равно значение переменной X после выполнения данной последовательности команд?
x:=0;
for i:=1 to 10 do
for j:=1 to 20 do
x:=x+2;
можете написать только ответ без решения
var
i,j:integer;
begin
FOR i:=5 DOWNTO 1 DO
FOR j:=7 TO 10 DO
writeln('Мое ДЗ.');
end.
2)Каким будет результат выполнения программы?
var
i:integer;
begin
i:=1;
while i<=10 do begin
i:=i+10 mod 3; end;
writeln('i= ',i);
end.
3)Чему будет равно значение переменной X после выполнения данной последовательности команд?
x:=0;
for i:=1 to 10 do
for j:=1 to 20 do
x:=x+2;
можете написать только ответ без решения
More Questions From This User See All