<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
for var i:=100 to 999 do begin
var (flag,j,r):=(True,2,Round(Sqrt(i)));
while flag and (j<=r) do
if i mod j = 0 then flag:=false else j+=1;
if flag then Print(i)
end
end.
Sub car()
Dim s As Double
For i = 1 To 12
s = s + 4
Next i
MsgBox ("Скорость автомобиля через 12 секунд равна " + CStr(s) + " км/ч")
End Sub<span>
</span>
8 бит дают диапазон [0;255₁₀], поэтому 5₁₀, 255₁₀, 111111₂
1. Нарисовать прямоугольник
2. Выделить фигуру
3. Нажать на рамку фигуры один раз, чтобы стрелки изменились на те, которые в файле к заданию я прикрепила.
4. Растянуть прямоугольник за любую из двух горизонтальную стрелку
:)
Я разговариваю с соседом, который сидит со мной за одной партой.
Мы видим дежурного и расписание.
Солнечный день радует нас.