Турбо Паскаль. цикл 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.
Еще
Написать программу рисования пяти букв ЯЯЯЯЯ в програме КУМИР ПРОШУ!!!!
Написать программу рисования пяти букв ЯЯЯЯЯ в програме КУМИР ПРОШУ!!!!
Ответ на вопрос
Программа рисования пяти букв "ЯЯЯЯЯ" в программе "КУМИР":PROGRAM DRAW_YA
PRINT "ЯЯЯЯЯ"
END PROGRAMПрограмма не будет работать в программе КУМИР, так как данный язык программирования ориентирован на обучение школьников основам программирования и не поддерживает вывод графики. Однако, вы можете использовать другие языки программирования, такие как Python или JavaScript, для создания программы рисования пяти букв "ЯЯЯЯЯ".
Еще
Нужно составить Програму 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.
Еще
Напишите с чего состоит английский язык Что мне учить Напишите разные програмы для изучения …
Напишите с чего состоит английский язык Что мне учить Напишите разные програмы для изучения
Ответ на вопрос
Английский язык состоит из алфавита, слов, грамматики, фразеологии, произношения и различных стилей общения.Для изучения английского языка вам следует учить английскую грамматику, запоминать новые слова, читать книги и статьи на английском, смотреть фильмы и сериалы на английском, общаться с носителями языка и посещать языковые курсы.Некоторые программы для изучения английского языка:Duolingo - мобильное приложение для изучения языков с помощью игр и упражнений.Rosetta Stone - интерактивная программа с уроками, обучающими материалами и возможностью разговорной практики.Babbel - онлайн-платформа с курсами английского языка, аудиоуроками и различными упражнениями.Anki - приложение для запоминания слов и фраз с помощью карточек и повторений.Memrise - онлайн-платформа с курсами языков, включая английский, с интересными и запоминающимися уроками.Выберите подходящую программу или комбинацию программ для изучения английского языка в зависимости от ваших целей и предпочтений.
Еще
Напишите 3 загадки, 3 скороговорки, 3 поговорки, 3 пословицы, 3 дразнилки. И их авторов. По програме Виноградовой.…
Напишите 3 загадки, 3 скороговорки, 3 поговорки, 3 пословицы, 3 дразнилки. И их авторов. По програме Виноградовой.
Ответ на вопрос
Загадки:Что можно увидеть наготове, но при этом не потрогать?Что такое всегда против ветра и никогда не устает?Что первым делом растет вниз, а потом вверх?Скороговорки:Широк шёл Саша с Шуриком, обоим шел сушеный щавель.Сто литров лимонаду вылил, лужу колоколуд.Федор не любил фундаменты, фендом ферзево фурируя.Поговорки:В тихом омуте черти водятся.Кобыле легче, везде побеждать.Седина в бороду - бес в ребро.Пословицы:Кто рано встает, тому бог дает.Глаза боятся, а руки делают.Век живи - век учись.Дразнилки:Тебе бы киндер сюрприз внутри платить!Ну и ты жирная, словно кит!У тебя волосы как солома, лучше бы пилом ломала.
Еще