// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
var
L,A:real;
begin
Writeln('Введите размер талии и длину стороны окна: ');
Read(L,A);
if L<Pi*A then Writeln('Пройдет')
else Writeln('не пройдет')
end.
Не понял, зачем тебе переменная m? Вот программа
program num9;
const
N = 5;
var
a: array [1..N] of integer;
i: integer;
begin
for i := 1 to N do
readln(a[i]);
for i := N downto 1 do
if (a[i] < 0) and (sqr(a[i]) < 7000) then
writeln(a[i]);
end.
<u>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadReal('a=');
var b:=ReadReal('b=');
var c:=ReadReal('c=');
var p:=(a+b+c)/2;
var s:=Sqrt(p*(p-a)*(p-b)*(p-c));
Writeln('s=',s:0:1)
end.
Первый рисунок
1-чёрный, 0-белый.
11110111
11110001
10000101
00000001
10101111
<span>
</span>Второй
1001001
0101010
0011100
0101010
1001001
Третий
11111
10101
11111
00100
00100
А что не понятного то? элементарно все.
я не понял какой именно номер надо по этому все разберу.
номер 2:
подставляй да и только
1-не подходит в конце код заканчивается на 1110,а как известно ни одного буквы заканчивающейся на 10 или 1110 или 110-нет, 2-не подходит, начало кода 1000.... а как известно ни одной буквы которая начинается на 10 нет, 3-подходит, код можно разделить по буквам 11-л 00-о 01-к 00-о 11-л 010-м 01-к, 4-не подходит код так же начинается на 10.
ответ:3
______
номер 3:
тоже все просто
тут достаточно знать как переводить из бит в байт, из байта в килобайт
а так же формулу для подсчета размера файла пусть v-это размер файла, u-скорость соединения, а t-время, тогда формула будет такая V=u*t
переведем минуту в секунды t=1мин=60сек
V=512 000бит/сек *60сек= 30 720 000бит(т.к нам нужны килобайты, переводим)=30 720 000бит/8/1024= 3750кб
ответ:3750
_________
номер 4
еще проще чем два предыдущих
В этом задании ответ (3)
объясню:
изначально подснежник.doc был: D:\2013\Весна\Подснежник.doc
потом создали подкаталог "Май", т.е говоря другими словами создали папку, и засунули туда Подснежник.doc и расположения стало таким: D:\2013\Весна\Май\Подснежник.doc , т.е чтобы узнать первоначальное местоположение мы делаем шаг назад