Турбо Паскаль. цикл for. Написать програму вычисляющая суму и среднее арифметическое нескольких чисел которые…
Турбо Паскаль. цикл for. Написать програму вычисляющая суму и среднее арифметическое нескольких чисел которые вводит пользователь.
Ответ на вопрос
program SumAverage;var
num, sum, count: Integer;
avg: Real;begin
sum := 0;
count := 0;writeln('Enter numbers (press 0 to finish):');repeat
readln(num);
sum := sum + num;
count := count + 1;
until num = 0;count := count - 1; // exclude 0 from countif count > 0 then
begin
avg := sum / count;
writeln('Sum: ', sum);
writeln('Average: ', avg:0:2);
end
else
writeln('No numbers entered.');end.
Еще
'((a+b+c)/x)^2 можете написать програму на паскале
'((a+b+c)/x)^2 можете написать програму на паскале
Ответ на вопрос
uses CRT; var a,b,c,x: integer; y: real;BeginClrscr;Write('a,b,c,x через пробел:');Read(a,b,c,x);y:=SQR((a+b+c)/x);Write(y:2:2);readln;readlnend.
Еще
Написать програму в паскале: Найти кол-во чисео от 1 до n кратных 15
Написать програму в паскале: Найти кол-во чисео от 1 до n кратных 15
Ответ на вопрос
Приведённый ниже код на Pascal (Delphi) находит количество чисел от 1 до n, кратных 15.program CountMultiplesOf15;
var
n, count, i: integer;
begin
Write('Введите число n: ');
ReadLn(n);
count := 0;
for i := 1 to n do
begin
if i mod 15 = 0 then
Inc(count);
end;
WriteLn('Количество чисел от 1 до ', n, ', кратных 15: ', count);
end.Программа запрашивает у пользователя число n, затем с помощью цикла for проверяет все числа от 1 до n. Если число кратно 15 (остаток от деления на 15 равен нулю), то увеличивает счётчик count. В конце программа выводит количество чисел, кратных 15 в заданном диапазоне.Для компиляции и выполнения этой программы вам потребуется среда разработки Pascal (например, Delphi) или любой другой компилятор Pascal.
Еще
С клавиатуры вводятся три числа, которые есть углами треугольника. Написать програму Паскаль и вычислить…
С клавиатуры вводятся три числа, которые есть углами треугольника. Написать програму Паскаль и вычислить может ли быть этот треугольник равносторонним, равнобедренным
Ответ на вопрос
program TriangleType;
var
a, b, c: integer;
begin
// ввод трех углов
write('Введите первый угол: ');
readln(a);
write('Введите второй угол: ');
readln(b);
write('Введите третий угол: ');
readln(c);
// проверка на то, что сумма углов равна 180
if a + b + c = 180 then
begin
// проверка на равносторонний треугольник
if (a = b) and (b = c) then
writeln('Треугольник равносторонний')
// проверка на равнобедренный треугольник
else if (a = b) or (b = c) or (c = a) then
writeln('Треугольник равнобедренный')
else
writeln('Треугольник разносторонний и неравнобедренный');
end
else
writeln('Треугольник с такими углами не существует');
end.Программа принимает данные от пользователя — три угла треугольника, и проверяет их на равносторонний, равнобедренный или разносторонний треугольник.
Еще
Написать програму по расчету новой цены с учетом скидки данные вводятся с клав/пропорция.
Написать програму по расчету новой цены с учетом скидки данные вводятся с клав/пропорция.
Ответ на вопрос
Пример программы на Python:# Ввод данных с клавиатуры
цена = float(input("Введите исходную цену товара: "))
скидка = float(input("Введите скидку в процентах: "))
# Расчет новой цены с учетом скидки
новая_цена = цена * (1 - скидка/100)
# Вывод результата
print("Новая цена товара с учетом скидки: ", новая_цена)Пользователь вводит исходную цену товара и процент скидки, после чего программа расчитывает новую цену с учетом скидки и выводит ее на экран.
Еще
Даны два числа a и b. Написать програму , которая находиться больше из них
Даны два числа a и b. Написать програму , которая находиться больше из них
Ответ на вопрос
include using namespace std;int main() {
int a, b;cout << "Введите два числа a и b: ";
cin >> a >> b;
if (a > b) {
cout << "Большее число: " << a << endl;
} else {
cout << "Большее число: " << b << endl;
}
return 0;}
Еще
Програмиа паскаль.Написать программу которая будет считать факториал,а затем сумму факториалов (все в одной…
Програмиа паскаль.Написать программу которая будет считать факториал,а затем сумму факториалов (все в одной программе).Желательно как можно проще составить.
Ответ на вопрос
program FactorialSum;function Factorial(num: integer): integer;
var
i, fact: integer;
begin
fact := 1;
for i := 1 to num do
fact := fact * i;
Factorial := fact;
end;var
n, i, sum: integer;
begin
sum := 0;write('Enter a number: ');
readln(n);for i := 1 to n do
sum := sum + Factorial(i);writeln('Factorial sum: ', sum);end.
Еще
Нужно составить Програму PasckalABCNET ПЖ рили оч нужно Напишите программу, с помощью которой можно посчитать…
Нужно составить Програму PasckalABCNET ПЖ рили оч нужно Напишите программу, с помощью которой можно посчитать пройденный путь, зная время и скорость движения. формулa- S=V*t.Значения переменных скорости
Ответ на вопрос
program CalculateDistance;
var
speed, time, distance: real;
begin
writeln('Введите скорость движения:');
readln(speed);writeln('Введите время движения:');
readln(time);distance := speed * time;writeln('Пройденное расстояние: ', distance:0:2);
end.
Еще
Написать программу рисования пяти букв ЯЯЯЯЯ в програме КУМИР ПРОШУ!!!!
Написать программу рисования пяти букв ЯЯЯЯЯ в програме КУМИР ПРОШУ!!!!
Ответ на вопрос
Программа рисования пяти букв "ЯЯЯЯЯ" в программе "КУМИР":PROGRAM DRAW_YA
PRINT "ЯЯЯЯЯ"
END PROGRAMПрограмма не будет работать в программе КУМИР, так как данный язык программирования ориентирован на обучение школьников основам программирования и не поддерживает вывод графики. Однако, вы можете использовать другие языки программирования, такие как Python или JavaScript, для создания программы рисования пяти букв "ЯЯЯЯЯ".
Еще
Напишите с чего состоит английский язык Что мне учить Напишите разные програмы для изучения …
Напишите с чего состоит английский язык Что мне учить Напишите разные програмы для изучения
Ответ на вопрос
Английский язык состоит из алфавита, слов, грамматики, фразеологии, произношения и различных стилей общения.Для изучения английского языка вам следует учить английскую грамматику, запоминать новые слова, читать книги и статьи на английском, смотреть фильмы и сериалы на английском, общаться с носителями языка и посещать языковые курсы.Некоторые программы для изучения английского языка:Duolingo - мобильное приложение для изучения языков с помощью игр и упражнений.Rosetta Stone - интерактивная программа с уроками, обучающими материалами и возможностью разговорной практики.Babbel - онлайн-платформа с курсами английского языка, аудиоуроками и различными упражнениями.Anki - приложение для запоминания слов и фраз с помощью карточек и повторений.Memrise - онлайн-платформа с курсами языков, включая английский, с интересными и запоминающимися уроками.Выберите подходящую программу или комбинацию программ для изучения английского языка в зависимости от ваших целей и предпочтений.
Еще
Напишите 3 загадки, 3 скороговорки, 3 поговорки, 3 пословицы, 3 дразнилки. И их авторов. По програме Виноградовой.…
Напишите 3 загадки, 3 скороговорки, 3 поговорки, 3 пословицы, 3 дразнилки. И их авторов. По програме Виноградовой.
Ответ на вопрос
Загадки:Что можно увидеть наготове, но при этом не потрогать?Что такое всегда против ветра и никогда не устает?Что первым делом растет вниз, а потом вверх?Скороговорки:Широк шёл Саша с Шуриком, обоим шел сушеный щавель.Сто литров лимонаду вылил, лужу колоколуд.Федор не любил фундаменты, фендом ферзево фурируя.Поговорки:В тихом омуте черти водятся.Кобыле легче, везде побеждать.Седина в бороду - бес в ребро.Пословицы:Кто рано встает, тому бог дает.Глаза боятся, а руки делают.Век живи - век учись.Дразнилки:Тебе бы киндер сюрприз внутри платить!Ну и ты жирная, словно кит!У тебя волосы как солома, лучше бы пилом ломала.
Еще