1) Приклади правильно записаних операторів. Цикл з лічильником.
a) for i:=5 to 7 do x:=x+1;
b) for n:=1 to 7 do begin x:=x+3; a:=x; write(x) end;
Цикл з передумовою.
a) while x>=3 do x:=x-3;
b) while a<10 do begin write('a=',a); a:=a+3 end;
2) Виконання оператора циклу:
з лічильником.
for i:=5 to 7 do write('i=',i);
НПР "Алгоритми з використанням циклів»
1) Які з операторів записані не правильно?
a) For i=5 to i=9 do write(i);
b) For i:=5 to i:=9 do write(i);
c) For i:=5 to 9 do write(i);
d) For i=5 to 9 do write(i);
e) For i:=5 to 9 do begin write(i); i:=i+1; end;
2) Скільки разів буде виконуватись оператор , записаний після Do
For n:=3 to 8 do write(‘так’);
3) Яке значення прийме змінна х після виконання оператора
For x:=5 to 5 do write(‘так’);
4) Що буде виведено на екран після виконання фрагменту програми
t:=0;
while t<5 do begin
writeln(t);
t:=t+2;
end;
пожулуйста
Sub Main()
Dim a(10) As Integer
Dim b As Integer = 1
Dim c As Integer
Dim R As Random = New Random()
For i As Integer = 0 To 10
a(i) = R.Next(12)
Console.WriteLine("[" + i.ToString() + "] => " + a(i).ToString())
Next
For i As Integer = 0 To 10
If ((a(i) Mod 2 = 0) And (a(i) < 0)) Then b = b * a(i)
If ((a(i) Mod 3 = 0) Or (a(i) Mod 5 = 0)) Then c = c + 1
Next
Console.WriteLine("Произведение чётных отрицательных: " + b.ToString())
Console.WriteLine("Кол-во кратных 3 или 5: " + c.ToString())
Console.Read()
End Sub