Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Зоромдед
02.04.2022 02:39 •
Информатика
Дано целое число x и натуральное n. составьте алгоритм вычисления xn. проверьте алгоритм трассировкой. напишите программу на паскале. через while do
👇
Увидеть ответ
Ответ:
69fff96fff69
02.04.2022
Var
x, n, ans:integer;
begin
Readln(x, n);
while (n > 0) do
begin
ans := ans + x;
n:= n - 1;
end;
Writeln(ans);
end.
4,4
(74 оценок)
Открыть все ответы
Ответ:
Эленедмонд
02.04.2022
Using System;
public class Test
{
public static void Main()
{
double a,b,c,D;
Console.WriteLine("программа для решения квадратного уравнения вида ax^2+bx+c=0");
Console.Write("введите a: a=");
a=double.Parse(Console.ReadLine());
Console.Write("введите b: b=");
b=double.Parse(Console.ReadLine());
Console.Write("введите c: c=");
c=double.Parse(Console.ReadLine());
Console.WriteLine("решаем уравнение:");
Console.WriteLine(a+"*x^2+("+b+")*x+("+c+")=0");
D=b*b-4*a*c;
Console.WriteLine("D="+b*b+"-"+"("+4*a*c+")="+D);
if (D<0){ Console.Write("D<0 => нет действительных корней");} else if (D>0)
{
Console.WriteLine("D>0 => уравнение имеет 2 действительных корня");
Console.WriteLine("x1="+(-b+Math.Sqrt(D))/(2*a));
Console.WriteLine("x2="+(-b-Math.Sqrt(D))/(2*a));
} else{
Console.WriteLine("D=0 => уравнение имеет 2 совпадающих корня");
Console.WriteLine("x1=x2="+(-b/(2*a)));
}
}
}
4,5
(30 оценок)
Ответ:
Poznavatel01
02.04.2022
#include <iostream>
#include <iomanip>
using namespace std;
int main() {
const int n = 6, m=7;
double a[n][m];
double r[m];
double s;
srand(time(0));
for (int i = 0; i < n; i++){
for (int j = 0; j < m; j++){
a[i][j]=-20 + (50.0 / RAND_MAX) * rand();
cout << fixed << setw (7) << setprecision (2) << a[i][j];
}
cout <<endl;
}
for (int j = 0; j < m; j++){
s = 0;
for (int i = 0; i < n; i++) s+= a[i][j];
r[j]=s/n;
}
cout << "Полученный массив" <<endl;
for (int j = 0; j < m; j++)
cout << fixed << setw (7) << r[j];
cout << endl;
}
Пример:
-10.07 28.55 13.71 8.49 -4.06 -16.79 10.86
-7.52 14.32 -5.13 -16.24 -0.26 16.80 -0.82
11.68 -13.75 4.24 24.31 6.79 -13.02 23.65
25.39 -8.77 -3.21 18.42 -2.37 -1.41 -9.80
25.09 29.06 -17.98 -14.98 27.61 15.73 13.51
-6.44 18.95 -5.63 6.03 3.27 9.24 9.79
Полученный массив
6.35 11.39 -2.33 4.34 5.16 1.76 7.86
4,4
(21 оценок)
Это интересно:
К
Компьютеры-и-электроника
28.03.2021
Как удалить историю веб поиска в Google: простые шаги для защиты вашей конфиденциальности...
Д
Дом-и-сад
27.10.2021
Как найти распределительный щиток или блок предохранителей...
М
Мир-работы
05.04.2023
Как пережить увольнение: советы профессионалов...
Д
Дом-и-сад
08.12.2021
Как сделать печь для плавки металла...
К
Кулинария-и-гостеприимство
27.04.2022
Лимонно-медовая вода: не только вкусно, но и полезно...
К
Кулинария-и-гостеприимство
22.07.2021
Как сделать печенье «Отпечаток»...
К
Компьютеры-и-электроника
17.08.2022
Как сделать сайт в Word: подробное руководство...
З
Здоровье
18.07.2020
Как нормализовать нерегулярный менструальный цикл: практические советы...
К
Кулинария-и-гостеприимство
10.04.2021
Пять советов, как приготовить вкусный холодный чай...
О
Образование-и-коммуникации
13.02.2021
Как написать комментарий: руководство по созданию качественных комментариев...
Новые ответы от MOGZ: Информатика
aalbina707
26.09.2022
Двумерный массив а[m,n] заполнить целыми числами, определяемыми функцией а[i,j]=i*j*m*rnd. определить номер максимального элемента массива....
serbakovasvetas
04.01.2023
Даны два действительных числа x и y. вычислить их сумму, разность, произведение и частное. напишите программу в паскаль...
stasison
30.11.2022
Дано число 6A590 в десятичной системе счисления. Разделите это число на 12 в десятичной системе, результат запишите в восьмеричной системе счисления....
ruchev06
14.03.2020
Определи вид распространения гиперссылки внешнее внутреннее наружное...
dimasikmirnyy9
05.07.2021
Сколько символов содержит сообщение, записанное с 32 символьного алфавита, если его объем составил 640 б...
vvnels
22.04.2023
Перевидите 76 в 10 степени в двоичную систему счисления, 98 в 10 степени в восьмиричную систему и 659 в 10 степени в шестнадцатиричную систему счисления....
kuzminanika2000
17.11.2022
Скорость передачи данных через adsl-соединение равна 256000 бит/c. передача файла через данное соединение заняла 4 секунд. определи размер файла в кбайт....
Алмат1335
17.11.2022
Дано трёхзначное число, цифру слева зачеркнули и переставили её в конец, вывести получившееся число. (с++)...
hyperIcum
17.11.2022
Что такое знак? примеры знаков, используемых в общении людей....
елена1180
21.03.2023
Напишите программу в паскале, которая выводит на экран только нечётные символы (символы под номерами 1, 3, 5, из текста пользователя....
MOGZ ответил
Реши уравнением периметр равен 30 см длина 6 см ширина неизвестно сантиметров...
Кошачьи хищные виды(сколько и какие)-красноярский край нужно для призентации...
Определить время, лицо, число, спряжение, род., у слов зачитывают, проспишь,...
1случай из жизни робинзона крузо рассказ! ! случай любой)...
Напишите сочинение рассуждение как я понимаю слово судьба план 1. что такое...
10 вопросов(умных! ) по сказке(именно сказке! ) финист ясна сокол много ! жду...
5. скорость течения реки 9 целых 4/4 км в час. какое расстояние пройдет плот...
Сделать морфологический разбор глаголов. 30 . 1. не будешь знать; 2. не уймёт....
Решите ситсему уравнений 1. 2у-х=3 2у+3=7 2. 2х-3у=23 х+у = 4...
Напишите несколько предложений или составьте текст на тему если бы я была учителем...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
x, n, ans:integer;
begin
Readln(x, n);
while (n > 0) do
begin
ans := ans + x;
n:= n - 1;
end;
Writeln(ans);
end.