Paskalabc. вводятся числа от 1 до 9 до тех пор, пока не будет введен 0. всего будет введено не больше 100 чисел. посчитать количество единиц в этой последовательности, количество двоек, количество троек и так далее (должно выводиться всегда 9 чисел).
224
446
Ответы на вопрос:
Uses system; var in, out : text; line, col : integer; k : integer; begin assign(in, "nome.in"); assign(out, "nomer.out"); reset(in); rewrite(out); read(in, line, col, k); if k < col * line theb begin write(out, (k - 1) div col + 1, ' ', (k - 1) mod col + 1); end else write(out, "слишком большое число") end; close(in); close(out); end.
Var x1, y1, x2, y2, x3, y3, p: real; function length(x1: real; y1: real; x2: real; y2: real): real; begin length : = sqrt(sqr(x1 - x2) + sqr(y1 - y2)); end; begin read(x1, y1, x2, y2, x3, y3); p : = length(x1, y1, x2, y2) + length(x3, y3, x2, y2) + length(x1, y1, x3, y3); writeln('perimeter is ', p); end.#include < cmath> #include < iostream> float length(float x1, float y1, float x2, float y2){ return pow((x1 - x2) * (x1 - x2) + (y1 - y2) * (y1 - y2), 0.5); }int main(){ float x1, y1, x2, y2, x3, y3, p; std: : cin > > x1 > > y1 > > x2 > > y2 > > x3 > > y3; p = length(x1, y1, x2, y2) + length(x3, y3, x2, y2) + length(x1, y1, x3, y3); std: : cout < < "perimeter is " < < p; }
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
alex01020303.11.2021 08:28
-
olesyamolyanova20.10.2020 09:04
-
pbenitcevich2320.09.2020 17:07
-
loshka225601.02.2022 16:07
-
tatarchenko0402.06.2021 17:06
-
dylanboy20.01.2021 07:05
-
Anion2027.03.2023 04:35
-
474738467383816.01.2020 02:47
-
carisha220104.08.2022 06:38
-
veraserditih06.10.2020 08:39
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.