<span>56 KB56000 Байт<span>57344 Байт</span></span>
Program kvadr_nechot;
var i:integer;
begin
for i:=1 to 9 do
if i mod 2 = 1 then write(i*i, ' ')
end.
1) вводить три равных натуральных числа - треугольник равносторонний. Результат программы TRUE ⇒ программа работает корректно
2) вводить три неравных натуральных числа - треугольник не равносторонний. Результат программы FALSE ⇒ программа работает корректно
3) ввести три нуля - треугольник не существует. Результат программы TRUE ⇒ программа работает некорректно
4) вводить три равных отрицательных числа - треугольник не существует. Результат программы TRUE ⇒ программа работает некорректно
5) ввести три равных или неравных вещественных числа - треугольник существует. Результата программы нет (ошибка типов) ⇒ программа работает некорректно
Var
a: array[1..6]of integer;
i,m: integer;
begin
for i:=1 to 6 do
read(a[i]);
writeln(' ');
For i:=2 to 6 do
if (a[i]<0) and ((i mod 2) =0) then
for m:=i downto 2 do
swap(a[m],a[m-1]); for i:=1 to 6 do
write(a[i]:2);
<span>end.
abc pascal</span>
uses crt;
var ch,a:integer;
begin
readln(ch);
readln(A);
if ((ch div 10)+( ch mod 10)) mod a = 0 then
writeln('YES') else writeln('NO');
readln;
end.
2.
uses crt;
var i,os:integer;
a:array[1..31] of integer;
begin
randomize;
os:=0;
for i:=1 to 31 do
begin
a[i]:=random(5)+0;
if a[i]=0 then inc(os);
end;
for i:=1 to 31 do
write(a[i],' ');
writeln;
if os = 10 then
writeln('YES') else writeln('NO');
readln;
end.