Sub Z()
Dim a As Integer
a = InputBox("1")
Dim b As Integer
b = InputBox("2")
If Math.Abs(a) > Math.Abs(b) Then a = a / 5
End Sub<span>
</span>
var
a: integer;
begin
writeln('Введите число');
readln(a);
if (a mod 2 = 0) then
writeln('Число является четным') else
writeln('Число является нечетным');
end.
за 128 секунд вася пробегает 1024м.и это на самом деле 65536см
тогда за одну секунду он пробегает
65536/128=512 см
100 метров=10000см
10000/512=19,5(раз по 512 см в стометровке.)
тогда В реальности вася пробегает 100 метров за 19,5 секунд
дай мне лучшее решение)
//Pascal ABC.NET v3.1 сборка 1219
Const
n=5;
Var
ar:array[1..n] of real;
i,maxi,mini:integer;
s,min,max:real;
begin
randomize;
min:=2147483647;
max:=-2147483648;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(30);
write(ar[i]:6);
if ar[i]>max then
begin
max:=ar[i];
maxi:=i;
end;
if ar[i]<min then
begin
min:=ar[i];
mini:=i;
end;
s:=s+ar[i];
end;
s:=s/n;
ar[maxi]:=ar[maxi]-maxi;
ar[mini]:=ar[mini]+s;
writeln;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:6);
end.
<span>А: если лягушонок зеленый, то он веселый;
Б: все
пестренькие лягушата сидят на берегу.
1.Верно, т.к. А.
2.Может быть верно, т.к. не сказано, где сидят зелёные лягушата
3.Может быть верно, т.к. не сказано, что зелёные лягушата не могут все сразу не быть на берегу, и не сказано, что пёстренькие не могут все быть грустными.
4.Может быть верно, т.к. условия не исключают, что пёстренькие все сразу могут быть грустными.
5.Может быть верно, т.к. не сказано, что пёстренькие должны быть грустными.
6.Может быть верно, т.к. не сказано, где должны сидеть зелёные лягушата
7.Может быть, т.к. не сказано, что пёстренькие лягушата не могут быть все сразу грустными.
8.Не может быть верно, т.к. Б
9.Может быть верно, т.к. условия не исключают, что зелёные лягушата не могут все сразу не находится</span> на берегу.