Как найти произведение трех чисел в паскале

Как найти произведение трех чисел в паскале

‌

Высший разум

(1263711)


13 лет назад

На паскале

program Proga;
var a,b,c,d: real; //либо integer
begin
write(‘A= ‘);
readln(a);
write(‘B= ‘);
readln(b);
write(‘C= ‘);
readln(c);
d:=a*b*c;
writeln(‘Произведение= ‘,d);
end.

AAA

Гуру

(4049)


13 лет назад

в делфи:
var a,b,c,d:real;
begin
a:=FloatToStr(Edit1.Text);
b:=FloatToStr(Edit2.Text);
c:=FloatToStr(Edit3.Text);
d:=a*b*c;
Edit4.Text:=StrToFloat(d);
end;

в паскале:
var a,b,c,d:real;
begin
writeln(‘введите числа’);
readln(a,b,c,);
d:=a*b*c;
writeln(‘=’);
readln(d);
end;

Анатолий Зверев

Знаток

(258)


13 лет назад

Ну, во-первых, на каком языке?
На Паскале, к примеру, выглядит вот так:
program 1;
var a, b, c: Real; // ну или Integer, если только целые
d: Real;
begin
Write (‘Введите a:’); Readln (a);
Write (‘Введите b:’); Readln (b);
Write (‘Введите c:’); Readln (c);
d:=a*b*c;
Writeln (‘Произведение a*b*c=’,d);
end.

Источник

Все категории

  • Фотография и видеосъемка
  • Знания
  • Другое
  • Гороскопы, магия, гадания
  • Общество и политика
  • Образование
  • Путешествия и туризм
  • Искусство и культура
  • Города и страны
  • Строительство и ремонт
  • Работа и карьера
  • Спорт
  • Стиль и красота
  • Юридическая консультация
  • Компьютеры и интернет
  • Товары и услуги
  • Темы для взрослых
  • Семья и дом
  • Животные и растения
  • Еда и кулинария
  • Здоровье и медицина
  • Авто и мото
  • Бизнес и финансы
  • Философия, непознанное
  • Досуг и развлечения
  • Знакомства, любовь, отношения
  • Наука и техника


7

1 ответ:



0



0

Var a,b,c,x:integer;
begin
readln (a);
readln (b);
readln (c);
x:=a*b*c;
writeln (x);
end.

Читайте также

Const sz=1000;
var
a: array [1..sz] of integer;
i,j,n,k:integer;
begin
write (‘количество чисел’);
read(n);
for i:=1 to n do begin
read(a[i]);
end;
for i:=1 to n-1 do
begin
if (a[i]>a[i+1] )then
writeln(i);
end;
end.
надеюсь это что вам нужно

3500 + 2000 – 4500 = 1000

Представь себе диаграмму, в которой какая-то часть “Пушкин”, а какая-то (меньше – по условию) – “Лермонтов”. Ты их складываешь и получаешь совпадения в поисковых запросах “Лермонтов & Пушкин”. От этого отнимаешь запрос “Лермонтов | Пушкин”, чтобы исключить эти повторения.

Ответ: А) Облачные технологии.

<u>1. Средства функционального программирования</u>

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
// Также проверено в WDE: http://pascalabc.net/WDE
begin
  var s:=ReadlnString(‘>’);
  s.Batch(s.Length div 5).Skip(2).Take(1).Aggregate((c1,c2)->c1+c2).Println(”)
end.

<u><em>Тестовое решение</em></u>
> retmutsike
ut

<u>2. Еще один вариант (на слайсах)</u>

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
// Также проверено в WDE: http://pascalabc.net/WDE
begin
  var s:=ReadlnString(‘>’);
  var m:=s.Length div 5;
  s[2*m+1:3*m+1].Println(”)
end.

<u>3. Стандартные средства Паскаля</u>

var
  s:string;
  m:integer;

begin
  Write(‘>’); Readln(s);
  m:=s.Length div 5;
  Writeln(Copy(s,2*m+1,m))
end.

1500 Кб = 1536000 бит
1536000/512000 = 3
Ответ: 3 секунды

Источник

Формулировка задачи:

Помогите пожалуйста.
Нужно найти произведение трёх чисел, при условии, что они меньше заданного числа М.

Код к задаче: «Найти произведение трёх чисел»

textual

if(a<m)and(b<m)and(c<m) then p:=a*b*c;

Полезно ли:

6   голосов , оценка 4.333 из 5

Источник

Составьте, пожалуйста, программу для Паскаль на нахождение суммы, произведения и среднего арифметического двух или трех чисел.

Буду очень вам благодарна!

На этой странице вы найдете ответ на вопрос Составьте, пожалуйста, программу для Паскаль на нахождение суммы, произведения и среднего арифметического двух или трех чисел?. Вопрос
соответствует категории Информатика и уровню подготовки учащихся 5 – 9 классов классов. Если ответ полностью не удовлетворяет критериям поиска, ниже можно
ознакомиться с вариантами ответов других посетителей страницы или обсудить с
ними интересующую тему. Здесь также можно воспользоваться «умным поиском»,
который покажет аналогичные вопросы в этой категории. Если ни один из
предложенных ответов не подходит, попробуйте самостоятельно сформулировать
вопрос иначе, нажав кнопку вверху страницы.

Источник
var a,b,c,s,p:integer;
    sr:real;
begin
writeln('Введите 3 целых числа');
readln(a,b,c);
s:=a+b+c;
p:=a*b*c;
sr:=(a+b+c)/3;
write('Сумма=',s,' произведение=',p,' среднее арифметическое=',sr:0:3);
readln
end.

Программа на onlinegdb

Похожие записи/страницы:

  • Имеется вещественный массив, состоящий из 9 элементов. Найти сумму, среднее арифметическое и произведение всех элементов…
  • Найти N-й элемент, сумму N элементов, произведение N элементов и среднее арифметическое N элементов следующего ряда 2/2…
  • Написать программу, вычисляющую среднее арифметическое последовательности положительных чисел. Числа вводятся с…
  • Даны два целых числа A и B (A > B). Найти произведение всех целых чисел от A до B включительно – Pascal(Паскаль)
  • Даны числа n, действительная матрица размером n*9. найти среднее арифметическое: каждого из столбцов – Pascal(Паскаль)
  • Ввести три числа, найти их сумму, произведение и среднее арифметическое – Pascal(Паскаль)
  • Даны два числа a и b. Найти их среднее арифметическое: (a + b)/2 – Pascal(Паскаль)
  • Разыгрывается случайные числа в интервале от 1 до 5, и находить сумму до тех пор, пока сумма не превысит 50. Найти…
Источник

Добавить комментарий