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

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

andry4 20 февраля 2023

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

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

85

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

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

Знаете другой ответ?
Другие вопросы по информатике
sntcs
20 февраля 2023
1
ответ
10. Какие из перечисленных имен файловудовлетворяют маске? a*сk*.*1) black.avi 2) chacke.bmp3) norack.txt4) blask.png5) blaeck.docx 6) checker.exe
medved
20 февраля 2023
1
ответ
Найдите сумму кратных 7 чисел, меньших 100
viktor-59
20 февраля 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
20 февраля 2023
1
ответ
Из шеснадцатиричной перевести в десятичную систему счисления 12F,8
code-hunter
20 февраля 2023
1
ответ
Как из слова бант, заменяя по одной букве прийти к слову коса? (слово должно быть сущ., вИм. Падеже) бант-коса
iceberg
20 февраля 2023
1
ответ
К поисковому серверу Интернет было выполнено 6 запросов. Расположите номера запросов через запятую в порядке возрастания количества страниц, которые найдет поисковый сервер по каждому запросу.1. Победители | призеры | стрельба 2. Победители & стрельба 3. Победители | (эстафета & стрельба) 4. Победители & призеры & Россия & стрельба 5. Победители & Россия & стрельба 6. (победители | призеры) & стрельба
ylian
20 февраля 2023
1
ответ
Что такое синквейн? Помогите пожалуйста! Срочно!
shnapz
20 февраля 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
20 февраля 2023
1
ответ
А) 1000+100 б) 100101100-1001100 в) 1100100+1111100 г) 111000010/10 д) 101011+10100 е) 1011000-11001 ж) 1100011/11 з) 100001+11
Задайте свой вопрос

ПОПУЛЯРНОЕ
sntcs, 20 февраля 2023
10. Какие из перечисленных имен файловудовлетворяют маске?
medved, 20 февраля 2023
Найдите сумму кратных 7 чисел, меньших 100
viktor-59, 20 февраля 2023
Паскаль. Программа работает…
poleznyy, 20 февраля 2023
Из шеснадцатиричной перевести в десятичную систему счисления 12F,8
code-hunter, 20 февраля 2023
Как из слова бант, заменяя по одной букве прийти к слову коса?
iceberg, 20 февраля 2023
К поисковому серверу Интернет было выполнено 6 запросов
ylian, 20 февраля 2023
Что такое синквейн? Помогите пожалуйста! Срочно!
shnapz, 20 февраля 2023
Помогите пожалуйста? Пусть a,b,c — логические величины, которые имеют следующие значения: а=истина, b=ложь, c=истина
morris, 20 февраля 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
Русский язык
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...