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

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

Приложения:

Ответы

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

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

justmickey1996: Ширина прямоугольника в 4 раза меньше длины. Длину увеличили на 10 %, а ширину уменьшили на 20 %. Как и на сколько % изменится периметр прямоугольника ПЛИЗ РЕШИ
Предыдущий вопрос
Следующий вопрос
Похожие вопросы
Предмет: Математика, автор: neskrebamihail1
Выполните письменно решение задачи: Из цифр 3,5,8 составить трехзначное Число, в котором ни одно число не может повторяться более двух раз. Сколько таких чисел можно составить?​
5 лет назад
Предмет: Другие предметы, автор: armanovnurasyl
жүрек-жылылық ұясы эссе(быстро пожалуйста)​
5 лет назад
Предмет: Математика, автор: fixsperq
Математическая грамотность Решите задачу, используя таблицу Цена Количество Стоимость одинаковая 4 коробки 6000 тг 7 коробок ? ТГ О 15 000 тг 10 000 тг О 14 000 тг 10 500 тг помогите срочно​
5 лет назад
Предмет: Литература, автор: андрей1555
рассказ на 60 страниц для первоклассника.
8 лет назад
Предмет: Информатика, автор: 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.
8 лет назад