Var
a:array [1..10] of integer;
i,sum,kol:integer;
begin
for i:=1 to 10 do a[i]:=random(10)+1;
for i:=1 to 10 do write(a[i],' ');
writeln;
for i:=1 to 10 do
if a[i] mod 2=0 then sum:=sum+a[i] else kol:=kol+1;
writeln(sum);
writeln(kol);
end.
Var
a, b, x, y: real;
begin
Write('Введите через пробел значения a и b: ');
Readln(a, b);
if a < b then x := 2 * a * +2 * b
else
if a = b then x := 18
else x := a * b - 45;
Write('x=', x:0:5);
if x <= 0 then Writeln(', при x<=0 вычислить y невозможно')
else
begin
if (x > 0) and (x < 1) then y := x - ln(x) {в формуле log, но основание не указано}
else y := ln(x) + x;
Writeln(', y=', y:0:5)
end
end.
Тестовое решение:
Введите через пробел значения a и b: 3 6.4
x=76.80000, y=81.14120
Введите через пробел значения a и b: 8 4
x=-13.00000, при x<=0 вычислить y невозможно
<span>электронный процессор,драйверы устройств</span>
Текстовые и графические алгоритмы, линейный алгоритм ( такие бывают )Алгоритм (модель процесса решения задачи) может быть представлен в виде текста на естественном языке или графически (блок-схемой).Алгоритм на естественномязыке даёт человеку болееподробную информацию, аблок схема – это наглядныйспособ представления информации. Алгоритм можно разделить по способу записи (форме представления) на текстовые (описание на естественном языке) и графические (блок-схемы). Алгоритм на естественном языке даёт более подробную информацию, а блок-схема – более наглядную.