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,b,c:integer;
begin
readln(a, b);
c:=a+b;
writeln(c);
end.
//Код Pascal:
Var
f:text;
a,b,c,D:real;
Begin
Assign(f,'kvur.txt');
Reset(f);
ReadLn(f,a,b,c);
Close(f);
Assign(f,'korni.txt');
Rewrite(f);
D:=b*b-4*a*c;
c:=(-b-Sqrt(D))/(2*a);
a:=(-b+Sqrt(D))/(2*a);
if D >= 0 then
Begin
WriteLn(c,' ',a);
WriteLn(f,c,' ',a)
End
else
Begin
WriteLn('Действительных корней нет.');
WriteLn(f,'Действительных корней нет.')
End;
Close(f);
ReadLn;
End.
Для корректной работы программы файлы должны находиться в одной папке с программой.
В коде используется неполный условный оператор, то есть нет else {...}.
Тогда условие i>5 будет выполняться только пять раз (i=6,7,8,9,10), в остальных случаях переменная k увеличиваться на единицу не будет. Значит при i=6 получим, что k=k+1=6 и так далее до i=10, k=10.
Ответ 5)10
Вот решение первой задачки:
program Sosed;
uses Crt;
const n = 10;
type Vec = array [1..n] of integer;
var A: Vec;
i, Col: integer;
begin
ClrScr;
Randomize;
WriteLn('Massiv A:');
for i:=1 to n do
begin
A[i]:= 10+random (90);
Write (A[i]:4);
end;
WriteLn;
Col:=0;
for i:=2 to n do
begin
if A[i]<A[i-1] then
Col:=Col+1;
end;
WriteLn;
if Col<>0 then Writeln('Col =', Col)
else WriteLn('None!');
ReadLn;
end.