сервис вопросов и ответовпомогите написать программы на паскале 1.вычислить произведение 3-х вводимых чисел которые меньше 20. 2. вывести на экран
10-11 класс|
|
количество четных и количество нечетных чисел в диапазоне от Х до У.
Blinchin
09 мая 2013 г., 19:31:23 (10 лет назад)
Jmpmgjgmwg
09 мая 2013 г., 21:50:08 (10 лет назад)
1)
uses crt;
var a,b,c:integer;
begin
read(a,b,c);
if (a>20) or (b>20) or (c>20) then write(a*b*c) else write('Одно из чисел больше чем 20');
end.
2)
uses crt;
var x,y,i,k,k1;integer;
begin
read(x,y);
for i:=x to y do
begin
if (x mod 2=0) then k:=k+1 else k1:=k1+1;
writeln('Четных: ',k);
write('Нечетных: ', k1);
end.
Ответить
Другие вопросы из категории
СРОЧНО.Вот код.Это программа не вся ,здесь даны формулы для вычисления массивов, которые и нужно найти.Написал функцию, вроде бы всё нормально, но не могу
понять как присвоить вычисляемые значения массиву.Массивы Y(8), Z(10) , W(15) .Если что, то потом необходимо еще подсчитать общее количество в этих массивах.
program pr_10;
const b1 = 4;
b2 = 6;
c1 = 8;
c2 = 3;
d1 = 5;
d2 = 12;
var i,m:integer ; y,z,w:real;
function fY(i:integer):real;
begin
Y:=b1*sin(2*i)+exp((i-5)*ln(b2));
end;
function FZ(i:integer):real;
begin
Z:=c1*(i-4)+c2*sqr(sin(1.5*i));
end;
function FW(i:integer):real;
begin W:=d1*ln(0.1*i)+d2*exp((3)*ln(i-2.5));
end;
begin
for i:=1 to 8 do
begin
Ym[i]:= Y(i);
writeln('Y = ',y);
end;
end.
Почему не используют Odd?
Во всех программах этого сайта на Паскале, когда нужно определить четность числа, используют MOD, хотя для этого есть специальная функция Odd. Эта функция не изучается на начальных этапах изучения Паскаля или есть другие причины?
Отдаю все свои баллы, т.к. меня из-за ника скоро выгонят с сайта, уже получил предупреждение.
Желаю всем успехов!
Помогите с PascalABC.net Есть программа, которая во вкладке и ессть word-файл, помоге с word-файлом - а именно укажите там длину, ширину фигуры и
площадь чего находит паскаль? (жёлтой или чёрной фигур)
Читайте также
Помогите написать программу по Информатике! Найти произведение двузначных нечетных чисел, кратных
13.
Нужно написать программу на цикле с предусловием, на Паскале.
написать программу на Assembler
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
Помогите написать программу в паскале. Задание:На плоскости даны 2 точки А (х1; у2) и В (х2; у2), определить какая из них находится дальше от начала коо
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
1.тема циклы со сщетчиком.Написать программу в паскале для ввода с клавиатуры 15 чисел и вывода номеров отрицательных элементов.
2.написать программу в паскале
f(x)=2(sin*sin)x+1
Вы находитесь на странице вопроса "помогите написать программы на паскале 1.вычислить произведение 3-х вводимых чисел которые меньше 20. 2. вывести на экран", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.