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

Плиз РЕШИТЕ ПРОПОРЦИЮ ДАЮ ДВАДЦАТЬ БАЛЛОВ

Приложения:

Ответы

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

1

$\frac{10x}{9.8x} = \frac{100}{x} \\ \frac{50}{49 } = \frac{100}{x} \\ 50x = 4900 \\ x = 98$

justmickey1996: Ширина прямоугольника в 4 раза меньше длины. Длину увеличили на 10 %, а ширину уменьшили на 20 %. Как и на сколько % изменится периметр прямоугольника ПЛИЗ РЕШИ

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

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

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

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

10(-с-49+3a) раскройте скобку
Дам 10 балов
И весь 2 вариант плз

6 лет назад

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

2+2=5?как скажите хочу 5 получит а не 4

6 лет назад

Предмет: Русский язык, автор: akhmetfarida1

Пж помогите умоляю вас

6 лет назад

Предмет: Литература, автор: андрей1555

рассказ на 60 страниц для первоклассника.

9 лет назад

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

Дан массив А(m), меньше или равно 20. Ввести на печать сумму элементов массива, Если она превосходит число 50, В противном случае вывести в печать исходный массив.

Написать программу , только прошу с интернета не брать, там программы не работают, свою программу я написала, но что-то выдаёт не так, помогите, пожалуйста.

Program mass5v;
Uses crt;
Const nmax=20;
Type mas=array[1..nmax] of integer;
Var
A: mas;
I,m,s:integer;
Am, con: text;
Begin
Clrscr;
Assign(Am,'Am.txt');
Assign(kon,'kon.txt');
Reset(Am);
Rewrite(kon);
Write('Введите размер массива m=');
Readln(m);
S:=0;
For I:=1 to m do
Begin
Read(Am, A[i]);
S:=s+A[i];
End;
Writeln;
Writeln(kon);
If s<=50 then
Begin
Writeln('Сумма элементов менее 50, вывод исходного массива);
For I:=1 to m do
Begin
Write('A[',i,']=',A[i],' ');
Write(kon,'A[',i,']=',A[i],' ');
End;
End
Else
Writeln('сумма элементов массива более 50 и равна: s=',s);
Close(Am);
Close(kon);
Readkey;
End.

9 лет назад