сервис вопросов и ответовЗадачи pascal.(34б)
10-11 класс|
|
Если все элементы одномерного массива положительные то вывести сообщение "УСЛОВИЕ ВЫПОЛНЯЕТСЯ" иначе "УСЛОВИЕ НЕ ВЫПОЛНЯЕТСЯ"
Дан массив из N ЭЛЕМЕНТОВ. Определить произведение элементов кратных заданному k(k-задается с клавиатуры).
Дан массив из N элементов.Определить ПРОИЗВЕДЕНИЕ тех элементов,которые кратные 3.
Voloshvlavlena
10 мая 2014 г., 20:27:29 (9 лет назад)
Suvorinartem
10 мая 2014 г., 21:41:48 (9 лет назад)
var k,a,b,c:integer;
begin
writeln('введите первое число');
readln(a);
writeln('введите второе число');
readln(b);
writeln('введите третье число');
readln(c);
writeln('введите число k');
readln(k);
if a mod k = 0 then
writeln('Первое число кратно k')
else
writeln('Первое число не кратно k');
if b mod k = 0 then
writeln('Второе число кратно k')
else
writeln('Второе число не кратно k');
if c mod k = 0 then
writeln('Третье число кратно K')
else
writeln('Третье число кратно k');
end.
Это первая задача!
машкакашка
11 мая 2014 г., 0:32:13 (9 лет назад)
1 момент, сейчас напишу!
Ответить
Другие вопросы из категории
Помогите срочно!
Составить алгоритм через паскаль.Введите с клавиатуры три числа авс.если а=в.то все числа замените квадратами если а>b>c то каждое число замените наибольшим, иначе: а сделайте равным сумме в и с, с обнулите, в оставьте без изменения»
Читайте также
Помогите составить блок схему к задачи Pascal
program sdasdas;
var
a:array [1..10] of integer;
p,i:integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(495)+5;
p:=1;
begin
for i:=1 to 10 do
if (a[i] mod 3=0) or (a[i] mod 9=0) then p:=p*a[i];
writeln('Произведение =',p);
end;
readln;
end.
Задача Pascal
Найти наименьшие элементы в каждом столбце матрицы Х(5,5) и переписать их в одномерных массив А.В массиве А вычислить сумму элементов,стоящих на четных местах и произведение элементов,стоящих на нечетных местах.Массив А,сумму и произведение вывести на экран
Здравствуйте. Помогите решить эту задачу в Pascal:
Найти минимальный среди максимальных элементов каждого из столбцов матриц С(5,10) и D(10,20). Задачу решить с использованием подпрограммы.
ЗАДАЧА ДЛЯ PASCAL ABC: В группе 30 учеников. За выполненный тест они могут
получить от 5 до 15 баллов (Сгенерить случайные числа
Помогите, пожалуйста, решить задачу:
Дан вектор из 25 элементов. Найти минимальное значение. Записать на языке Pascal и построить алгоритм.
Вы находитесь на странице вопроса "Задачи pascal.(34б)", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.