сервис вопросов и ответовНужно написать программы в Паскале. 1. Вычислите N! (N факториал). 2. Вычислите X^y (X в степени Y). 3. Найти количество отрицательных и произведение
5-9 класс|
|
положительных чисел, введённых с клавиатуры. 4. Найти все трёхзначные числа, сумма цифр которых больше заданного числа.
Izerginamimido
07 янв. 2017 г., 3:30:30 (7 лет назад)
432032b
07 янв. 2017 г., 4:36:56 (7 лет назад)
1)
Program Pr1;
uses crt;
var x,i,n:integer;
begin
clrscr;
readln(n);
x:=1;
for i:=1 to n do x:=x*i;
writeln(x);
end.
2)
Program Pr1;
uses crt;
var x,y:real;
Begin
clrscr;
readln(x,y);
writeln(Exp(y*ln(x)));
end.
3)
Program Pr1;
uses crt;
var mas:array[byte] of integer;
i,n,c,b:integer;
Begin
clrscr;
writeln('Vvedite kol chisel');
readln(n);
c:=0;b:=1;
for i:=1 to n do begin
writeln('vvedite ',i,' chislo ');
readln(mas[i]);
end;
For i:=1 to n do if mas[i]<0 then c:=c+1
else b:=b*mas[i];
writeln('Chislo otrizateln. ',c,' Proizvedenie polojiteln ',b);
end.
4)
Program Pr1;
uses crt;
var x,y,i:integer;
Begin
clrscr;
readln(x);
y:=0;
for i:=100 to 999 do if i>x then begin
writeln(i);
y:=y+1;
end;
writeln('Vsego ',y);
end.
Ответить
Другие вопросы из категории
Помогите решить! Вы хотите работать с разрешением монитора 1600х1200 пикселей, используя 16 777 216 цветов. В магазине продаются видеокарты с памятью
512Кбайт, 2Мбайт, 4Мбайт, 64Мбайт. Какую из них можно купить для вашей работы?
Срочно!
Решите задачи:
1) сообщение занимает 3 страницы и содержит 3420 байт информации. сколько строк в тексте если символов в строке 38 и при составлении этого сообщения использовалось 256 символьный алфавит?
2) информационный объём сообщения длиной в 120 символьный составляет 75 байт. определите какого максимального количества символов может состоять алфавит языка на котором написано данное сообщение.
Производится четырёхканальная (квадро) звукозапись с частотой дискретизации 48 кГц и 24-битным разрешением. Запись длится 1
минуту, её результаты записываются в файл, сжатие данных не производится. Какая из приведённых ниже величин наиболее близка к размеру полученного файла?
1) 14 Мбайт
2) 27 Мбайт
3) 33 Мбайт
4) 59 Мбайт
Читайте также
1)найти сумму первых k последовательных нечетных чисел. написать программу в паскале. 2)вывести на экран натуральные нечетные числа от 5 до 55.тоже
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
Помогите , пожалуйста . Нужно написать программу для Паскаль.
Ввести пять чисел и найти наибольшее из них.
Я тут написал кое-что ,но не знаю правильно ли :(
HELP ME.
program ru;
var a,b,c,d,e,max:integer;
begin
writln('Введите пять целых чисел');
if a>b then
begin
max:=a;
end
else begin
max:=b;
end;
if max>c then
begin
max:=max;
else begin
max:=c;
end;
if d>e then begin
max:=d;
end
else begin
max:=e;
end.
Ребят) Помогите с программой на Паскале, пожалуйстаа)
Нужно написать программу, которая выводит на экран все двухзначные числа, делящиеся на 3 или на 5 (использовать операции целочисленного деления div или mod)
Помогите написать программу для Паскаля.
1. Написать программу нахождения произведения n чисел.
Вы находитесь на странице вопроса "Нужно написать программы в Паскале. 1. Вычислите N! (N факториал). 2. Вычислите X^y (X в степени Y). 3. Найти количество отрицательных и произведение", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.