Определить,является ли введенное число четным-нечетным
Составим программу на языке программирования Паскаль, которая будет определять, каким является число, введенное пользователем с клавиатуры, четным или нечетным.
writeln (‘Придумайте и задайте с клавиатуры любое значение целого число а’);
if a mod 2 = 0 then
writeln (‘Заданное Вами число делится на 2, поэтому оно является четным’);
writeln (‘Заданное Вами число не делится на 2 без остатка, поэтому оно является нечетным’);
1. Составьте программу, проверяющую, что введенное число является четным или нечетным
2. Составьте программу, проверяющую, что введенное число делится без остатка на 3
//Задача 1
var d:integer;
begin
readln(d);
if d mod 2 =0 then
Writeln(‘Четное’)
else
Writeln(‘Не четное’);
end.
//Задача 2
var d:integer;
begin
readln(d);
if d mod 3 =0 then
Writeln(‘Делится’) else
Writeln(‘Не делится’);
C++ | Определение чётности или нечётности числа
end.
begin
readln(i);
Writeln(‘Четное? — ‘, i mod 2 = 0);
end.
begin
read(i);
Writeln(‘Делится на 3? — ‘, i mod 3 = 0)
end.
Знаешь ответ? Добавь его сюда!
Ответить на вопрос
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.
Составь выражения и найди их значения. Напиши решение для каждого случая.
Разность чисел 40 и 20 умножить на частное чисел 45 и 45.
Произведение чисел 20 и 3 умножить на разность чисел 17 и 17.
Разность чисел 85 и 85 разделить на частное чисел 80 и 2.
Сумму чисел 45 и 37 разделить на разность чисел 68 и 67.
Помогите пж дам 30 балов!
по химии делаем экзаменационные задачи
1. Определите какой объем занимают (при н. у.): а) 8,8 г оксида углерода (IV) CO2; б) 2г гелия?
2. Решите задачу. Чему равна молярная масса газа, молярная масса газа, плотность которого 1,34 г/л?
3. Решите задачу. Чему равна масса 1 л озона О3, измеренного при н. у.?
4. Вычислите массу воды, подвергшуюся разложению, если при разложении воды получается 4 г кислорода.
5. Рассчитайте какой объем водорода требуется для получения 15 м3 фтороводорода HF.
6. Изобразите распределение электронов в атоме ванадия (элемент №23) по квантовым ячейкам.
7. Составьте формулы кислородных и водородных соединений элементов IV группы? Укажите их степени окисления.
8. Составьте уравнение ядерной реакции, протекающей при бомбардировке ядер урана U92238 нейтронами, зная что при этом излучаются β частицы.
9. Изобразите химическую связь в молекуле водорода, хлора.
10. Вычислите молярность 28% -ного раствора HNO3 (пл. 1,167 г/см3).
11. Вычислите чему равна процентная концентрация полученного раствора, при смешении 2 л 10%-ного раствора KOH (пл. 1,09 г/см3) и 1 л 20 % — ного раствора KOH (пл. 1,19 г/см3).
12. Составьте уравнения диссоциации молекул следующих веществ: Sr(OH)2, CuSO4.
12 Задача: Определить число четное или нечетное при помощи Python
13. Составьте молекулярное и ионное уравнения реакции между хлоридом железа (III) и гидроксидом калия.
14. Объясните, почему индикатор лакмус окрашивается в красный цвет в растворе хлорида алюминия AlCl3.
15. Вычислите рН и рОН 0,01 М раствора иодоводородной кислоты HI. Как изменится концентрация ионов Н+ и ОН- при разбавлении раствора в 1000 раз?
16. Изобразите схему гальванической цепи для определения стандартного электродного потенциала алюминия.
17. Составьте уравнения реакций , которые протекают при коррозии цинка в атмосферных условиях.
18. Объясните, как происходит электролиз водного раствора K2 SO4 c инертным анодом.
19. Составьте схему электролиза раствора CuCl2 с медным анодом.
20. Вычислите жесткость воды, для устранения которой к 50 л воды добавили 5,1 г КОН.
21. Составьте формулы изомеров С5 Н12.
22. Решите задачу. Сколько кубических метров воздуха, содержащего 20% кислорода, требуется для сгорания 1 м3 природного газа состава: 90% метана, 5% этан, 3% водорода, 2% азота?
23. Составьте уравнение окислительно-восстановительной реакции дихромата калия K2Cr2O7 с раствором соляной кислоты. Укажите элемент-окислитель и элемент- восстановитель.
24. Решите задачу. Смесь металлов натрия и кальция массой 6,3 г растворили в воде, при этом выделился газ объемом 3,36 л (н.у.). Сколько граммов каждого из металлов содержалось в смеси?
25. Изобразите строение ароматического углеводорода молекулярной формулой С8 Н10? Назовите возможные изомеры по систематической номенклатуре и по правилам ИЮПАК.
26. Рассчитайте состав исходной смеси спиртов, если известно, что в смесь этанола и пропанола массой 16,6 г поместили избыток натрия, при этом выделился водород (н.у.) объемом 3,36 л.
27. Определите массу технического карбида кальция с массовой долей СаС2 87%, необходимую для получения «ледяной» уксусной кислоты массой 1 т привыходе продукта 100%.
28. Составьте уравнения процесса получения метилформиата из метанола.
29. Решите задачу. В трех склянках находятся растворы глицерина, ацетальдегида, глюкозы. Определите содержимое каждой склянки. Составьте наиболее рациональный план проведения анализа и напишите уравнения реакций.
30. Напишите структурные формулы изомерных аминокислот, соответствующих составу С4 Н9 О2 N. Назовите их по рациональной и международной номенклатуре.
Функция Odd
Функция Odd в Паскале определяет, является ли число чётным или нечётным. Синтаксис:
Функция Odd возвращает TRUE, если число является НЕчётным. Иначе возвращает FALSE.
Как определить чётное число в Паскале
Если в функцию передано чётное число, то она возвращает FALSE. Следовательно, чтобы проверить, является ли число чётным, надо результат функции сравнить с FALSE:
if not Odd(x) then WriteLn(‘x — чётное число ‘);
Как определить нечётное число в Паскале
Если в функцию передано нечётное число, то она возвращает TRUE. Следовательно, чтобы проверить, является ли число нечётным, надо результат функции сравнить с TRUE:
Составьте программу, проверяющую, что введенное число является четным или нечетным.
begin
var (n,m):=ReadInteger2(‘Введите через пробел n и m:’);
var a:=ArrRandom(10,n,m);
a.Println
end.
Пример
Введите через пробел n и m: -6 20
15 10 16 17 1 14 -4 19 1 18
1. Для матрицы 3* 3 обнулить все элементы с четным значением. Результат вывести на экран.
uses crt;
const n=3;
var a: array [1..n,1..n] of integer;
x,y: integer;
begin
for x:=1 to n do begin
for y:=1 to n do begin
a[x,y]:=random(21)-10;
write(a[x,y]:4);
if a[x,y] mod 2=0 then a[x,y]:=0;
end;
writeln;
end;
writeln;
for x:=1 to n do begin
for y:=1 to n do
write(a[x,y]:4);
writeln;
end;
end.
2. Для матрицы 3*3 целых чисел найти индексы элементов с нулевым значением. Результат вывести на экран.
uses crt;
const n=3;
var a: array [1..n,1..n] of integer;
x,y: integer;
begin
for x:=1 to n do begin
for y:=1 to n do begin
a[x,y]:=random(21)-10;
write(a[x,y]:4);
end;
writeln;
end;
writeln;
for x:=1 to n do
for y:=1 to n do
if a[x,y]=0 then writeln(x,’,’,y);
end.
Related posts:
- Как сканировать фотопленку hp cm1312 mfp
- Как скрыть направляющие в кореле
- Как снять подушку безопасности с руля ниссан альмера g15
- Как создать шаблон в конфлюенс
Источник: www.kak-zarabotat-v-internete.ru
Составить программу является ли число четным
Вопрос по информатике:
Помогите составить программу на Pascal
1. Составить программу, которая определяет является ли сумма цифр двузначного числа четной или нечетной
2. Составить программу, которая определяет имеет ли уравнение a(x)^(2) + bx + c решения, где a, b и c данные вещественные числа
Помогите подалуйста, срочно нужно
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок — бесплатно!
- bookmark_border
- 13.02.2015 18:31
- Информатика
- remove_red_eye 8202
- thumb_up 16
Ответы и объяснения 1
athathv954
Program n1;
var n: integer;
begin
readln(n);
if( (n mod 10)+(n div 10) )mod 2=0 then write(‘четная’) else write(‘нечетная’);
end.
Знаете ответ? Поделитесь им!
Как написать хороший ответ?
Чтобы добавить хороший ответ необходимо:
- Отвечать достоверно на те вопросы, на которые знаете правильный ответ;
- Писать подробно, чтобы ответ был исчерпывающий и не побуждал на дополнительные вопросы к нему;
- Писать без грамматических, орфографических и пунктуационных ошибок.
Этого делать не стоит:
- Копировать ответы со сторонних ресурсов. Хорошо ценятся уникальные и личные объяснения;
- Отвечать не по сути: «Подумай сам(а)», «Легкотня», «Не знаю» и так далее;
- Использовать мат — это неуважительно по отношению к пользователям;
- Писать в ВЕРХНЕМ РЕГИСТРЕ.
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи — смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Источник: online-otvet.ru
Name already in use
A tag already exists with the provided branch name. Many Git commands accept both tag and branch names, so creating this branch may cause unexpected behavior. Are you sure you want to create this branch?
Cancel Create
GeekBrains_HW25_06_22 / Program.cs /
Code definitions
Code navigation index up-to-date
- Go to file T
- Go to line L
- Go to definition R
- Copy path
- Copy permalink
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Cannot retrieve contributors at this time
106 lines (85 sloc) 4.35 KB
- Open with Desktop
- View raw
- Copy raw contents Copy raw contents Copy raw contents
Copy raw contents
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters. Learn more about bidirectional Unicode characters
| // Это Main работа. Версии при их наличии будут распределены в репозитории по соответствующим веткам. |
| int programm , num ; |
| Boolean begin = true ; |
| while ( begin ) |
| Console . WriteLine ( » —— » ) ; |
| Console . WriteLine ( » Введите число для соответствующей задачи или иное для выхода: » ) ; |
| Console . WriteLine ( » 1. На вход принимает два числа и выдаёт, какое число большее, а какое меньшее. » ) ; |
| Console . WriteLine ( » 2. Принимает на вход три числа и выдаёт максимальное из этих чисел. » ) ; |
| Console . WriteLine ( » 3. На вход принимает число и выдаёт, является ли число чётным (делится ли оно на два без остатка). » ) ; |
| Console . WriteLine ( » 4. На вход принимает число (N), а на выходе показывает все чётные числа от 1 до N. » ) ; |
| programm = Convert . ToInt32 ( Console . ReadLine ( ) ) ; |
| switch ( programm ) |
| case 1 : |
| // Задача 2: Напишите программу, которая на вход принимает два числа и выдаёт, какое число большее, а какое меньшее. |
| Console . WriteLine ( » Введите первое число: » ) ; |
| int num_A = Convert . ToInt32 ( Console . ReadLine ( ) ) ; |
| Console . WriteLine ( » Введите второе число: » ) ; |
| int num_B = Convert . ToInt32 ( Console . ReadLine ( ) ) ; |
| if ( num_A > num_B ) |
| Console . WriteLine ( » Первое число » + num_A + » больше чем второе » + num_B ) ; |
| > |
| else |
| Console . WriteLine ( » Второе число » + num_B + » больше чем первое » + num_A ) ; |
| > |
| break ; |
| case 2 : |
| // Задача 4: Напишите программу, которая принимает на вход три числа и выдаёт максимальное из этих чисел. |
| Console . WriteLine ( » Введите 3 числа: » ) ; |
| int num_1 = Convert . ToInt32 ( Console . ReadLine ( ) ) ; |
| int num_2 = Convert . ToInt32 ( Console . ReadLine ( ) ) ; |
| int num_3 = Convert . ToInt32 ( Console . ReadLine ( ) ) ; |
| int max = num_1 ; |
| if ( num_2 > max ) |
| max = num_2 ; |
| > |
| if ( num_3 > max ) |
| max = num_3 ; |
| > |
| Console . WriteLine ( » Наибольшее из введённых чисел -> » + max ) ; |
| break ; |
| case 3 : |
| // Задача 6: Напишите программу, которая на вход принимает число и выдаёт, является ли число чётным (делится ли оно на два без остатка). |
| Console . WriteLine ( » Введите число: » ) ; |
| num = Convert . ToInt32 ( Console . ReadLine ( ) ) ; |
| if ( num % 2 == 1 ) |
| Console . WriteLine ( » Число » + num + » является: НЕЧЁТНЫМ » ) ; |
| > |
| else |
| Console . WriteLine ( » Число » + num + » является: ЧЁТНЫМ » ) ; |
| > |
| break ; |
| case 4 : |
| // Задача 8: Напишите программу, которая на вход принимает число (N), а на выходе показывает все чётные числа от 1 до N. |
| int i = 1 ; |
| bool not = true ; |
| Console . WriteLine ( » Введите число: » ) ; |
| num = Convert . ToInt32 ( Console . ReadLine ( ) ) ; |
| Console . WriteLine ( » Чётные числа от 1 до » + num ) ; |
| while ( i |
| if ( i % 2 != 1 ) |
| Console . Write ( i + » , » ) ; |
| not = false ; |
| > |
| i ++ ; |
| > |
| if ( not ) |
| Console . WriteLine ( » Нет чётных чисел! » ) ; |
| > |
| break ; |
| default : |
| begin = false ; |
| break ; |
| > |
| > |
- Copy lines
- Copy permalink
- View git blame
- Reference in new issue
Источник: github.com