Microsoft Word, Microsoft Excel, Goole Chrome (браузер), Блокнот, Калькулятор, Пейнтбраш
Dim b(45)
for i=1 to 45
print "b(";i;")= ";
input b(i)
next i
for i=1 to 45
if b(i)=3.5 then
s=s+1
end if
next i
print "kolichestvo: "; s
Var d,a: integer;
begin
write('Диаметр пробоины: ');
readln(d);
write('Сторона куска фанеры: ');
readln(a);
if a>d then writeln('Пробоину можно заделать')
else writeln('Пробоину заделать нельзя');
end.
Пример:
<span>Диаметр пробоины: 5
Сторона куска фанеры: 6
Пробоину можно заделать</span>
1. Вправо, вниз, вниз. Вниз, вниз, вправо. Вниз, вправо, вниз.
2. А. Нет Б. Нет В. Да Г. Да Д. Да Е. Нет
Переводим 260 в двоичную систему счисления и видим: