С клавиатуры вводится целое число. Нужно ответить, является оно четным или нечетным.С++

Знания

Информатика

1 ответ:

Андреяно4 года назад

0 0

На C# только если

Console.WriteLine("Введите число ");
int a = Convert.ToInt32(Console.ReadLine());
if (a%2 == 0)
{
Console.WriteLine("Число четное");
}
else Console.WriteLine("Число нечетное");

Читайте также

Как в паскале сделать так, чтобы когда ты вводил букву(a) оно выдало число в ответ, которое было заданное ранее в программе(напр

кипркп

Если ты вводишь букву(а ты это знаешь), то просто выводи другую переменную с числовым значением.

0 0

3 года назад

СРОЧНО!!!!!!!!!!!!!!!!!,!!!?!?!!!!?!!!!,????Запишите на языке Паскаль программу решения задачиВ некотором населённом пункте N до

Elis [28]

Program a1;
var a:array[1..1000]of integer; i,n,s:integer;
begin
write('n: '); readln(n); s:=0;
for i:=1 to n do begin write('a[',i,']: '); read(a[i]) end;
for i:=1 to n do s:=s+a[i]; writeln('s=',s); readln; readln
<span>end.</span>

0 0

4 года назад

Очень срочно помогите написать программу! вот задача: Заполнить массив из 12 элементов случайными числами в интервале [-12..12]

AnnaZabs

Var
a: array[1..12] of integer;
i: integer;
begin
randomize;
for i:=1 to 12 do
a[i]:=random(12+12+1)-12; //Заполнение массива
writeln('Исходный массив: ');
for i:=1 to 12 do
  write(' ',a[i],' '); //Вывод исходного массива
writeln(); //Для перехода на следующую строку
writeln('Результат: ');
for i:=4 downto 1 do
  write(' ',a[i],' ');
for i:=8 downto 5 do
  write(' ',a[i],' ');
for i:=12 downto 9 do
  write(' ',a[i],' '); //Обратный цикли для каждой трети
<span>end.
</span>

0 0

4 года назад

Таня написала на полоске бумаги цифры 123132321 после этого она склеила полоску в кольцо то есть за последней единицей стоит пер

Гоманов Дмитрий [14]

323211231

0 0

4 года назад

Дан массив А (1..4,1..8) случайных целых чисел в диапазоне [-10,40]. Составить программу поиска разницы между максимальным и мин

Heisenbergsss

begin

var a := MatrRandom(4, 8, -10, 40);

a.Println(4);

var s := a.ElementsByRow;

Writeln('Разница равна ', s.Max - s.Min)

end.

0 0

3 года назад