Решите 3 задания пожалуйста срочно По физике 7 класс - №32084508

Решите 3 задания пожалуйста срочно По физике 7 класс
- Предмет:
  Физика
- Автор:
  elianpugh
- 6 лет назад

Ответы 1

102,4
----------------------------------------------------
- Автор:
  tinkerbellrdvt
- 6 лет назад
- 0
Добавить свой ответ

Еще вопросы

решите уравнение 6 (2х-1)+2(4х-3)=17
- Предмет:
  Математика
- Автор:
  munchkinsantana
- 6 лет назад
- Ответов:
  
  4
- Смотреть
Помогите дописать программу в Паскаль. Задача ниже. Не знаю как сделать ее со скобками.

Напишите программу, которая вычисляет выражение, состоящее из трех чисел и двух знаков (допускаются знаки «+», «–», «*» и «/») и круглых скобок. Выражение вводится как символьная строка, все числа целые. Операция «/» выполняется как целочисленное деление (div). Пример: Введите выражение: 2*(3+45)+4 Ответ: 100

Вот что у меня есть: ( я сделала, чтобы вычисляло выражение их 3 чисел и двух знаков, но не получается сделать так, чтобы учитывались круглые скобки )
var s, s1, s2, s3, s4: string;
i, a, b, c, d, e, f: integer;
begin
Writeln('Введите строку: ');
Readln(s);
for i := 1 to length(s) do
begin
if (s[i] = '+') or (s[i] = '-') or (s[i] = '*') or (s[i] = '/') then
begin
s1 := copy(s, 1, i-1);
s2 := copy(s, i+1, length(s));
c := i;
end;
end;
for i := 1 to length(s1) do
begin
if (s1[i] = '+') or (s1[i] = '-') or (s1[i] = '*') or (s1[i] = '/') then
begin
s3 := copy(s1, 1, i-1);
s4 := copy(s1, i+1, length(s1));
e := i;
end;
end;
Val(s3, a, d);
Val(s4, b, d);
Val(s2, f, d);
if (s[e] = '/') and (s[c] = '/') then Writeln((a div b) div f);
if (s[e] = '/') and (s[c] = '*') then Writeln((a div b) * f);
if (s[e] = '+') and (s[c] = '*') then Writeln(a + (b * f));
if (s[e] = '*') and (s[c] = '*') then Writeln(a * b * f);
if (s[e] = '+') and (s[c] = '/') then Writeln(a + (b div f));
if (s[e] = '*') and (s[c] = '+') then Writeln((a * b) + f);
if (s[e] = '/') and (s[c] = '+') then Writeln((a div b) + f);
if (s[e] = '*') and (s[c] = '/') then Writeln((a * b) div f);
if (s[e] = '+') and (s[c] = '+') then Writeln(a + b + f);
if (s[e] = '-') and (s[c] = '-') then Writeln(a - b - f);
if (s[e] = '+') and (s[c] = '-') then Writeln(a + b - f);
if (s[e] = '-') and (s[c] = '+') then Writeln(a - b + f);
if (s[e] = '*') and (s[c] = '-') then Writeln((a * b) - f);
if (s[e] = '/') and (s[c] = '-') then Writeln((a div b) - f);
if (s[e] = '-') and (s[c] = '*') then Writeln(a- (b * f));
if (s[e] = '-') and (s[c] = '/') then Writeln(a - (b div f));
end.
- Предмет:
  Информатика
- Автор:
  miley59
- 6 лет назад
- Ответов:
  
  1
- Смотреть
сделать полный синтаксический разбор предложения:
Уважаемая Анна Владимировна, ставлю вас в известность, что двадцать седьмого мая ректорат вел переписку с восемьюстами пятью студентами.
- Предмет:
  Русский язык
- Автор:
  kasen
- 6 лет назад
- Ответов:
  
  6
- Смотреть
Определите массу углекислого газа полученного при полном окислении 23 г этилового спирта
- Предмет:
  Химия
- Автор:
  pintsizelf4l
- 6 лет назад
- Ответов:
  
  1
- Смотреть

How much to ban the user?

1 hour 1 day 100 years