Решить линейное уравнение ax+b=0, a и b ввести с клавиатуры (программу написать на языке Паскаль).

Знания

Информатика

1 ответ:

Almo4ka [50]4 года назад

0 0

Var
a,b,x: real;
begin
write('Введите а= ');
readln(a);
write('Введите b= ');
readln(b);
x:=-b/a;
writeln('Ответ: ',x);
end.

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

Запишите в двоичной системе число, которое в десятичной системе записано так: 600. Напишите ПОДРОБНОЕ решение СРОЧНО

volt2068 [59]

Вот такой ответ. 100% правильно

0 0

1 год назад

Какое количество бит содержит слово "информатика". В ответе записать только число

Татьянабеша

Каждый символ содержит 8 бит, а в слове информатика 11 символов, поэтому 11*8=88 бит

0 0

3 года назад

В одной из кодировок Unicode каждый символ кодируется 16 битами. Определите размер следующего предложения в данной кодировке: Ка

kira12345emelyanova

В предложении 51 символ считая с пробелами

51*16=816 бит

ответ 1) 816 бит

0 0

4 года назад

Программа-психотерапевт. Пользователь говорит, программа ничего не отвечает. Когда пользователь закончил говорить, он говорит "С

ghh1 [1]

Ответ:

stroca = input()

summa = 0

while stroca != 'Спасибо.':

summa += 1

stroca = input()

summa += 1

print(summa)

Объяснение:

0 0

4 года назад

РЕБЯТКИ, ПОМОГИТЕ, ПОЖАЛУЙСТА!!! ОЧЕНЬ НУЖНО!!! Задача Pascal (во вложениях) данные типа spring. Пожалуйста, напишите задачу!

Алена2

var
Str1,c : string;
l,i : integer;
r : boolean;

begin
readln (Str1);
r := true;
i := 1;
l := Length (Str1);

While (r) and (i <= l) do
begin
c := copy (Str1,i,1);
  if (c <> '1') and (c <> '0') then
r := false;
i := i + 1;
end;

if r then
{writeln ('Ok')}
else
writeln ('Недопустимый символ!');
<span>end.</span>

0 0

4 года назад