Предмет: Информатика, автор: alekszhilyaev1

придумать программу и какое-нибудь решение линейного уравнения ах=в

Ответы

Автор ответа: cccc1808

Pascal
var
a,b, x : real;
begin
writeln ('ax=b');
write ('a=');
readln (a);
write ('b=');
readln (b);
x := b/a;
writeln ('x=',x:3:3);
end.

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Обществознание, автор: ksyushazhixareva0409

все приведённые ниже черты за исключением двух характеризуют абсолютную монархию Выпишите цифры под которыми указаны черты выпадающий из данного ряда

6 лет назад

Предмет: Химия, автор: kion2029

Найди массу фосфорной кислоты и объём воды, которые потребуются для приготовления 100 г раствора с масcовой долей H3PO4, равной 0,5.

ПОМОГИТЕ СРОЧНО ИНАЧЕ МОЯ ГОЛОВА ПАДЁТ С ПЛЕЧ!
(даю 50 баллов)

6 лет назад

Предмет: Информатика, автор: mrshtormer27

Помогите перевести код из паскаля в фортран f90

var i, j, k, s, x, y:integer;
a:array[1..7,1..7] of integer;

begin
x:=2;
y:=6;
for k:=1 to 4 do
begin
for i:=x-1 to y+1 do
begin
s:=s+1;
a[x-1,i]:=s;
end;

for j:=x to y+1 do
begin
s:=s+1;
a[j,i]:=s;
end;

for i:=y downto x-1 do
begin
s:=s+1;
a[y+1,i]:=s;
end;
for j:=y downto x do
begin
s:=s+1;
a[j,i]:=s;
end;

x:=x+1;
y:=y-1;

end;

writeln('massive 15 = ');
for i:=1 to 7 do
begin
for j:=1 to 7 do
write(a[i,j]:5);
writeln;
end;

end.

6 лет назад

Предмет: Математика, автор: Аноним

РЕШИТе ЗАДАЧИ ЗАДАЧА №1 НА 9 ПАЛЬТО ПОШЛО 50 МЕТРОВ ТКАНИ СКОЛЬКО МЕТРОВ ТКАНИ ПОТРЕБУЕТСЯ НА 3 ТАКИХ ПАЛЬТО ЗАДАЧА №2 ЕЖЕМЕСЯЧНЫЙ БЮДЖЕТ СЕМЬИ КУЗНЕЦОВЫХ СОСТОВЛЯЕТ 11501 СКОЛЬКО РУБЛЕЙ ПРИХОДИТСЯ НА КАЖДОГО ИЗ ЧЕТЫРЕХ ЧЛЕНОВ СЕМЬИ В МЕСЯЦ

9 лет назад

Предмет: Математика, автор: fomicheva5

ВЫРАЗИ В ЧАСАХ И МИНУТАХ 238 мин НАПИСАТЬ ВСЕ!

1) 2 ч 38 мин

2) 23 ч 8 мин

3) 35 ч 8 мин

4) 3 ч 58 мин

9 лет назад