Все категории

1 год назад

Составьте программу,определяющую четное или нечетное количество лепестков у ромашки.

Знания

Информатика

1 ответ:

Ludwig1 год назад

0 0

Var
a:integer;
begin
read(a);
if a mod 2 = 0 then
writeln('Четное')
else
writeln('Нечетное');
end.

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

З'ясувати чи число А кратне 5. Відповідь вивести у вигляді Yes/No

Алексей7117

Var a:integer;
begin
write('a='); readln(a);
if a mod 5 = 0 then writeln('Yes') else writeln('No');
end.

Пример:
a=15
Yes

0 0

4 года назад

Прочитать ещё 2 ответа

Какой информационный объём содержит слово КОМПЬЮТЕР , если символы взяты из таблицы ASCII? ПОЖАЛУЙСТА С РЕШЕНИЕМ

Паутинка

Если имеется ввиду вес, то 9 байт или 72 бита

0 0

4 года назад

ПОМОГИТЕ ПОЖАЛУЙСТА, БУДУ БЛАГОДАРНА!! Пользуясь графиком изменения работ о способности, найдите истинные высказывания:

Valucha [305]

Истинные утверждения: Б,д,з,и,к,л

0 0

4 года назад

C# Задана последовательность N целых чисел. Вычислить сумму элементов массива, порядковые номера которых совпадают со значением

Lilia Mckeon

using System;

using System.Collections.Generic;

namespace Num

{

class Program

{

static void Main(string[] args)

{

Console.WriteLine("Введите количество элементов: ");

int N = Int32.Parse(Console.ReadLine());

Console.WriteLine("Введите элементы через enter: ");

List<int> numbers = new List<int>();

for(int i = 0; i < N; ++i)

{

int temp = Int32.Parse(Console.ReadLine());

numbers.Add(temp);

}

Console.WriteLine("Элемены значения которых совпадают с их индексом:");

for (int i = 0; i < N; ++i)

{

if (numbers[i] == i)

Console.Write(numbers[i] + " ");

}

Console.WriteLine();

Console.ReadKey();

}

0 0

4 года назад

Запишите на языке Паскаль программу которая для произвольного натурального двузначного числа определяет сумму и произведение его

Амелия777 [1]

var

x,a, b: integer;

begin

readln (x);

a:= x div 10;

b:= x mod 10;

writeln ('сумма=', a+b);

writeln( ' произведение =', a*b);

end.

0 0

4 года назад