Задание №2. Условный оператор. Решить линейное уравнение ax = b.

Знания

Информатика

1 ответ:

осмод1 год назад

0 0

program zadacha;
Var x,a,b :real;
begin
readln (a,b);
if a<>0 then x:=-b/a;
Writeln ('x= ',x);
end.

Читайте также

в питоне из натурального числа удалить четные цифры в числе так чтобы не нарушить порядок других чисел

sorina16 [4]

Ответ:

в питоне из натурального числа удалить четные цифры в числе так чтобы не нарушить по

Объяснение:

в питоне из натурального числа удалить четные цифры в числе так чтобы не нарушить п

0 0

4 года назад

Помогите составить программу на паскале Вычислить сумму чисел натурального ряда, делящихся на 3, до тех пор, пока сумма не превы

марина4891

Вроде получилось:

var a,b,s:integer;
begin
write('Числа = ');
for a:=1 to 100 do
begin
b:=a mod 3;
if (b = 0) then
begin
write(a,', ');
s:=s+a;
if((s > 500) and (s<520)) then break;
end;
end;
writeln('Сумма чисел = ', s);
end.

Результат:

0 0

3 года назад

Представь число −275(10) в 2 -байтовом формате

андрейАС80

Ответ:

100 010 011

................

0 0

4 года назад

Помогите прошу очень срочно дам 50 баллов

Проняша

Сложение делаем в столбик и вопросов не будет.
1 1 1 1 0 0 0
+ 1 1 0
------------------
1 1 1 1 1 1 0

Ответ: 1 1 1 1 1 1 0₂

0 0

3 года назад

Прочитать ещё 2 ответа

Дано некоторое число составьте программу которая выводит какое это число положительное или отрицательное если оно положительное

Roman47 [7]

//Pascal ABC.NET v3.1 сборка 1172

Var
a:real;
begin
readln(a);
if a>0 then writeln('Положительное, ',a/2) else
if a<0 then writeln('Отрицательное, ',sqr(a)) else
writeln('0');
end.

Пример ввода:
-12
Пример вывода:
-, 144

0 0

4 года назад

Прочитать ещё 2 ответа