Вход
Регистрация
О проекте Как заработать?
50

Составить программу нахождения ширины прямоугольника…

andry4 08 марта 2023

Составить программу нахождения ширины прямоугольника, если площадь и длина вводятся с клавиатуры.

категория: информатика
ответить
в избранное

85

Var a, s: real; begin readln (s, a); writeln ('b=', s / a); end.

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

Знаете другой ответ?
Другие вопросы по информатике
sntcs
08 марта 2023
1
ответ
10. Какие из перечисленных имен файловудовлетворяют маске? a*сk*.*1) black.avi 2) chacke.bmp3) norack.txt4) blask.png5) blaeck.docx 6) checker.exe
medved
08 марта 2023
1
ответ
Найдите сумму кратных 7 чисел, меньших 100
viktor-59
08 марта 2023
1
ответ
Паскаль. Программа работает, но выдает не тот результат — вставляет заданное число на первое место изачем-то меняет другими числами оставшиеся элементы массива. Что надо исправить? Условие: Вставить перед первым четным элементом массива заданное число.program vstavka; var i,n,k,z: integer; a: array[1… 1000] of integer; beginassign (input,'input.txt'); assign (output,'output.txt'); reset (input); rewrite (output); readln (n,z); for i: =1 to n do read (a[i]); i: =a[1]; for i: =1 to n doif a[i] mod 2=0 thenbeginfor k: =n+1 downto k+1 doa[i]: =a[i-1]; a[k]: =z; n: =n+1; break; end; for i: =1 to n do write (a[i],'); close (input); close (output); end.
poleznyy
08 марта 2023
1
ответ
Из шеснадцатиричной перевести в десятичную систему счисления 12F,8
code-hunter
08 марта 2023
1
ответ
Как из слова бант, заменяя по одной букве прийти к слову коса? (слово должно быть сущ., вИм. Падеже) бант-коса
iceberg
08 марта 2023
1
ответ
К поисковому серверу Интернет было выполнено 6 запросов. Расположите номера запросов через запятую в порядке возрастания количества страниц, которые найдет поисковый сервер по каждому запросу.1. Победители | призеры | стрельба 2. Победители & стрельба 3. Победители | (эстафета & стрельба) 4. Победители & призеры & Россия & стрельба 5. Победители & Россия & стрельба 6. (победители | призеры) & стрельба
ylian
08 марта 2023
1
ответ
Что такое синквейн? Помогите пожалуйста! Срочно!
shnapz
08 марта 2023
1
ответ
Помогите пожалуйста? Пусть a,b,c — логические величины, которые имеют следующие значения: а=истина, b=ложь, c=истина. Определите результаты вычисления следующих логических выражений: а) а и bб) a и b или св) (a или b) и (c и b) г) a или bд) a или b и се) не (a или b) и (c или b) ж) не а или bи) не а или b и cк) не (а и b и с)
morris
08 марта 2023
1
ответ
А) 1000+100 б) 100101100-1001100 в) 1100100+1111100 г) 111000010/10 д) 101011+10100 е) 1011000-11001 ж) 1100011/11 з) 100001+11
Задайте свой вопрос

ПОПУЛЯРНОЕ
sntcs, 08 марта 2023
10. Какие из перечисленных имен файловудовлетворяют маске?
medved, 08 марта 2023
Найдите сумму кратных 7 чисел, меньших 100
viktor-59, 08 марта 2023
Паскаль. Программа работает…
poleznyy, 08 марта 2023
Из шеснадцатиричной перевести в десятичную систему счисления 12F,8
code-hunter, 08 марта 2023
Как из слова бант, заменяя по одной букве прийти к слову коса?
iceberg, 08 марта 2023
К поисковому серверу Интернет было выполнено 6 запросов
ylian, 08 марта 2023
Что такое синквейн? Помогите пожалуйста! Срочно!
shnapz, 08 марта 2023
Помогите пожалуйста? Пусть a,b,c — логические величины, которые имеют следующие значения: а=истина, b=ложь, c=истина
morris, 08 марта 2023
А) 1000+100 б) 100101100-1001100 в) 1100100+1111100 г) 111000010/10 д) 101011+10100 е) 1011000-11001 ж) 1100011/11…
27400
Алгебра
14821
Английский язык
14216
Биология
7369
Другой
720
Экономика
18828
Физика
8304
География
15850
Геометрия
5255
Информатика
11818
История
23332
Химия
15992
Литература
73118
Математика
8152
Обществознание
465
Правоведение
46271
Русский язык
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...