сервис вопросов и ответовПомогите пожалуйста составить программы :)
10-11 класс|
|
1.Введено четырехзначное число. Найти сумму цифр, кратных 3-м.
2.Определить, сколько среди заданных чисел A, B, C, D отрицательных.
3.Составить программу, которая выводит меню и при нажатии нужной цифры вычисляет соответствующее выражение:
1 - y= x3 + x
2 - y= (x +1)2
3 - y= sqr(x+4)
Zlataчka
29 сент. 2016 г., 14:11:54 (7 лет назад)
Словянин
29 сент. 2016 г., 15:05:53 (7 лет назад)
1)
var a:array [1..4] of integer;
var x,i,i1: integer;
begin
writeln('Введите 4-х значное число');
read(x);
for i:=1 to 4 do begin
a[i]:=x mod 10;
if a[i] mod 3 = 0 then begin
i1:=i1+a[i];
end;
x:=x div 10;
end;
write(i1);
end.
2)
Немного не понял:
var a:array [1..4] of integer;
var i,n,y: integer;
begin
n:=1;
for i:=1 to 4 do begin
writeln('Введите ',n, ' число');
read(a[i]);
if a[i]<0 then y:=y+1;
n:=n+1;
end;
write('Отрицательных чисел: ',y);
end.
3)
var i,y,x: integer;
begin
writeln('Выберите действие: 1)y=x^3 + x; 2)y=(x+1)^2; 3)y=sqr(x+4)');
read(i);
if i=1 then begin
writeln('Введите x');
read(x);
write('y=',(x*x*x)+x);
end
else begin
if i=2 then begin
writeln('Введите x');
read(x);
write('y=',(x+1)*(x+1));
end
else begin
if i=3 then begin
writeln('Введите x');
read(x);
write('y=',sqrt(x+4));
end;
end;
end;
end.
Ответить
Другие вопросы из категории
Районный отдел трудоустройства осуществляет начальное обучение (1 группа) или повышение квалификации (2 группа) людей, которые по каким-либо причинам
ищут работу. Особое внимание уделяется слушателям, входящим «в группу риска». Это люди, которым «за 40», и они или не имеют в настоящее время работы, или пришли в группу начального обучения.
Какая логическая формула отражает отбор в «группу риска»?
1. И (Возраст > 40) ИЛИ (Работа = "–") И (Группа = 2).
2. ИЛИ (Возраст > 40) ИЛИ (Работа = "–") ИЛИ (Группа = 1).
3. (Возраст > 40) И ((Работа = "–") ИЛИ (Группа = 1)).
4. (Возраст > 40) И (Работа = "–") И (Группа = 1).
Все 4-буквенные слова, составленные из букв В, Н, Р, Т, записаны в алфавитном порядке и пронумерованы.Вот начало списка:
1. ВВВВ
2. ВВВН
3. ВВВР
4. ВВВТ
5. ВВНВ
.....
Читайте также
Здравствуйте, уважаемые :) Помогите пожалуйста составить программу на Паскале. Спасибо огромное!
1. Напишите программу формирования и вывода массива размером 6x3, каждые три последовательных элемента в строке которого составлены по следующему правилу:
1-й — равен случайному числу;
2-й — равен целой части квадратного корня из предыду щего элемента;
3-й-равен сумме двух предыдущих элементов.
Помогите пожалуйста написать программу в паскале.
Составить программу перевода натурального числа из десятичной системы счисления в двоичную
Помогите, пожалуйста, составить алгоритм для следующей задачи: Вводятся четыре числа. Известно, что 3 из них равны, а 4-ое отличается от 3-ех других.
Нужно выдать число, которое отличается от других равных, при этом, используя ровно две операции сравнения. Я пытался решить эту задачу и через максимум-минимум, и через условия, но везде натыкался на грабли. Помогите, пожалуйста, разобраться. Заранее благодарю! Перед выставлением решения, рассмотрите следующие варианты: "2 4 4 4", "2 3 2 2 ", "-3 -3 -2 -3", "-4 -4 -4 -5".
Помогите пожалуйста с программой..(в Паскале)
Составить программу табулирования функции заданной рекурентной формулой.
f(0)=1; f(1)=2; f(n+2)=2*f(n+1)-n
Здравствуйте, помогите, пожалуйста, составить программу. Задача-Сформулируйте и выведите на экран массив из 9 элементов, каждые три последовательных
элемента которого составлены по следующему правилу:
1-й равен квадрату текущего индекса, увеличенному на 5;
2-й равен целой части квадратного корня из предыдущего элемента;
3-й равен целой части от деления двух предыдущих элементов.
Вы находитесь на странице вопроса "Помогите пожалуйста составить программы :)", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.