какие действия выполняет скрипт? Var y,i: integer; Begin y := 5; For i := 1 to 3 do
5-9 класс
|
p>y := y + 5*i;
Writeln(y);
End.
Другие вопросы из категории
модем? 4.При каких способах подключения к сети интернета модем ненужен?
Читайте также
to 9 do
y:=y+x;
writeln(y=,y);
END.
2.var x,y: INTEGER;
BEGIN
y:=0;
for x:=10 downto 5 do
y:=y+1
writeln(y=,y);
END
3. var x,y: INTEGER;
BEGIN
y:=1;
x:=15;
while x>5 do
begin
x:=x-3;
y:=y*x;
end;
writeln(y=,y)
END.
4. var x,y: INTEGER;
begin
y:=1;
x:=10;
repeat
y:=y*x+x;
x:=x-2;
until x<0;
writeln(y=,y);
end.
пожалуйста напишите подробное решение и как получаются ответы
a<5 do
writeln(a);
a:=a+1;
End.
2)Program z2;
var a,s:integer;
begin
a:=1; s:=0;
while a<10 do begin
s:=s+a/2;
end;
writeln(s);
end.
var k,s :integer;
begin
s:=0
k:=0
while k <30 do begin
k:=k+3;
s:=s+k;
end;
write(s);
end.
2)какие действия выполняются при операции форматирования магнитного диска?
3)с каким расширение по умолчанию сохраняются на диске документы Microsoft Office Excel?
4)какое количество Кбайт нужно для записи цветного растрового изображения,занимающего четверть экрана монитора с текущим расширением 1024х768. известно что для изображения использовалось 256 цветов?
integer;
Begin
Y:=0;
For x:=1 to 9 do
Y:=y+1;
Writeln (‘y = ’,y);
End.
2) Var
Y, x: integer;
Begin
Y:=0;
X:=10;
While x>0 do
Begin
X:= x-2;
Y:= y+x;
End;
Writeln (‘y = ’,y)
End.