Решите уравнение х2-5x+6=0 используя ниже приведенный пример. оформи решение задачи в тетради на языке паскаль, с использованием уже известных данных. Запишите полностью построчное решение и ответ.(фотография - это пример
begin readln(a); if a mod 2 = 0 then println('da') else println('net'); end.
1 б) var a: integer;
begin readln(a); if a mod 10 = 7 then println('da') else println('net'); end.
2 а var a: integer;
begin readln(a); if (a div 10+a mod 10) mod 3 = 0 then println('da') else println('net'); end.
2 б var n,a: integer;
begin writeln('Введите число'); readln(n); writeln('Введите a'); readln(a); if (n div 10+n mod 10) mod a = 0 then println('da') else println('net'); end.
pascal
Объяснение:
procedure sortmas(a: array of integer);
var i, j, min, ind: integer;
begin
for i := 0 to Length(a) - 2 do
begin
min := a[i]; ind := i;
for j := i + 1 to Length(a) - 1 do
if a[j] < min then
begin
min := a[j]; ind := j;
end;
a[ind] := a[i]; a[i] := min;
end;
end;
var a: array of integer;
n , i: integer;
begin
WriteLn('Введите размер массива: '); Read(n);
SetLength(a, n);
Randomize;
WriteLn('Содержимое массива:');
for i := 0 to Length(a) - 1 do
begin
a[i] := random(100);
Write(a[i], ', ');
end;
WriteLn;
sortmas(a);
WriteLn('Три минимальных элемента: ', a[0], ', ', a[1], ', ', a[2], ', ');
end.
var
a: integer;
begin
readln(a);
if a mod 2 = 0 then
println('da')
else println('net');
end.
1 б)
var
a: integer;
begin
readln(a);
if a mod 10 = 7 then
println('da')
else println('net');
end.
2 а
var
a: integer;
begin
readln(a);
if (a div 10+a mod 10) mod 3 = 0 then
println('da')
else println('net');
end.
2 б
var
n,a: integer;
begin
writeln('Введите число');
readln(n);
writeln('Введите a');
readln(a);
if (n div 10+n mod 10) mod a = 0 then
println('da')
else println('net');
end.