сервис вопросов и ответовПомогите решить задачу в системе паскаля, фото задачи по ссылке
10-11 класс|
|
http://cs309224.vk.me/v309224156/5a57/fT3rlMe9o9k.jpg
Dibrovaaa
05 марта 2017 г., 11:33:41 (7 лет назад)
Kisusha
05 марта 2017 г., 14:19:00 (7 лет назад)
Program Mul;
Uses Crt;
var a,b:integer;
m:longint;
begin
clrscr;
m:=1;
write('Введите число а: ');
readln(a);
write('Введите число b<a: ');
readln(b);
for i:=a to b do m:=m*i;
writeln('Произведение всех чисел от a до b: ',m);
readkey;
end.
Ответить
Другие вопросы из категории
тема : Одномерный массив 1)составить текст программы 2)нарисовать блок схему Дан массив из 15 чисел.Определить номер максимального
элемента в массиве,а также количество отрицательных чисел.
ОООЧЕНЬ НУЖНА ПОМОЩЬ! НУЖНО НАПИСАТЬ ПРОГРАММЫ (ХОТЯ БЫ ДВЕ,ПОЖАЛУЙСТА) В ПАСКАЛЕ ABC! 1. Дан массив. Все элементы уменьшить на число a.
2. Дан массив целых чисел. Верно ли,что сумма элементов массива есть четное число.
3. В массиве хранятся сведения о количестве осадков,выпавших за каждый день января. Определить общеее количество осадков за месяц и среднее количество за день.
Как известно, автомобиль, изобретенный Винтиком и Шпунтиком, работает не на бензине, а на газировке разных сортов. На одном литре лимонада он
проезжает 120 км, на одном литре кока-колы — 100 км, на одном литре фанты — 150 км. Цена одного литра фанты в Цветочном городе — 3 монеты за литр, лимонада — 1 монета за литр, кока-колы — 2 монеты за литр. Готовясь к путешествию, Незнайка закупил 10 литров кока-колы, 5 литров лимонада и 10 литров фанты. Винтик и Шпунтик вместе купили 10 литров лимонада и 10 литров фанты. Торопыжка — 5 литров фанты, 10 — кока-колы и 10 — лимонада. Поэт Цветик — 20 литров фанты.
Читайте также
Помогите решить задачу.
Дан массив А1,.......Аn. найти максимальный и минимальный элементы и поменять их местами. Вот задача которую я делал:
program zadacha;
const
k=50;
var
a:array[1..k] of integer;
n,i:1..k;
c,v,max,min,prom:integer;
begin
for i:=1 to n do begin (здесь выскакивает ошибка о проверки диапазона)
a[i]:=random(50);
write(a[i],' ');
end;
max:=a[1];
min:=a[1];
for i:=1 to n do begin
if a[i]>max then begin
max:=a[i];
c:=i;
end;
if a[i]<min the begin
min:=a[i];
v:=i;
end;
end;
writeln('max=',max,'min=',min);
prom:=max; (вот с этой строчки и до конца помогите решить)
max:=min;
min:=prom;
writeln;
writeln('Полученный массив');
for i:=1 to n do
write(a[i], ' ');
readln;
end.
Помогите,пожалуйста,написать программу в паскале к задаче. Даны три целых числа:A,B,C.Проверить истинность высказывания:"Число B находится между
числами A и C".
Помогите решить задание (задачу) на языке паскаль. Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму на
10% нормы предыдущего дня. Какой суммарный путь пробежит спортсмен за N дней? Разработать схему алгоритма для решения этой задачи.
Здравствуйте. Помогите решить эту задачу в Pascal:
Найти минимальный среди максимальных элементов каждого из столбцов матриц С(5,10) и D(10,20). Задачу решить с использованием подпрограммы.
Вы находитесь на странице вопроса "Помогите решить задачу в системе паскаля, фото задачи по ссылке", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.