Sub Задача()
Dim a, b As Integer
a = InputBox("Введите а!")
b = InputBox("Введите b!")
If (a >= 0 And b >= 0) Or (a < 0 And b < 0) Then
MsgBox ("Знаки одинаковые")
Else
MsgBox ("Знаки разные")
End If
End Sub
<span>
вот процедура на VBA (на нем записываются макросы в Microsoft Office)
и как-то так блок-схема рисуется :D</span>
1. 2^i = 256 => i(1)=8 бит
2. 2^i = 16 => i(2)=4 бит
100x150=15000 пикс
8*15000 = 120000 бит = 15000 байт
4*15000 = 60000 бит = 7500 байт
15000-7500 = 7500 байт
15000/7500 = 2
Уменьшится на 7500 байт, уменьшится в 2 раза
Для начала посчитаем количество команд.
так как первых на 13 больше, то вторых команд будет
(27 - 13) / 2 = 7
соответственно первых команд было 7 + 13 = 20
теперь посчитаем, куда пойдёт кузнечик.
будем считать, что он движется вперёд, поэтому знак покажет, куда пошёл кузнечик
3 * 7 - 20 * 2 = 21 - 40 = -19
таким образом имеем: кузнечик сместился на 19 шагов назад
Var x,y:real;
begin
readln(x,y);
if (y<x)and(x*y<0)
then writeln('Yes') else writeln('No');
end.
Пример:
1 -2
Yes
var
filetext: text;
a:string;
i,c:integer;
b,k:real;
begin
assign(filetext,'C:\text.txt');
rewrite(filetext);
for i:=1 to 10 do begin
readln(a);
writeln(filetext,a)
end;
close(filetext);
reset(filetext);
for i:=1 to 10 do begin
readln(filetext,a);
val(a,b,c);
k:=k+b
end;
writeln(k);
close(filetext);
end.
