М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
тогжан22
тогжан22
14.05.2023 17:45 •  Информатика

Вводятся два натуральных числа. если оба числа чётные, то вывести большее из них. если оба числа не чётные, то вывести меньшее из них. если одно чётное, а другое не чётное, то вывести их произведение на экран.

👇
Ответ:
vabyn
vabyn
14.05.2023
Program n1;
var a,b: integer;
begin
readln(a,b);
if(a mod 2=0) and (b mod 2=0) then
if a>b then write(a) else if b>a then write(b);
if(a mod 2<>0) and (b mod 2<>0)
then if a<b then write(a) else
if b<a then write(b);
if((a mod 2=0) and (b mod 2<>0)) or ((a mod 2<>0) and (b mod 2=0))
then write(a*b);
end.
4,5(66 оценок)
Ответ:
maalia12
maalia12
14.05.2023
Var
a, b: integer;
begin
write('Введите 2 натуральных числа: ');
readln(a, b);
if (a > 0) and (b > 0) then
begin
if (a mod 2 = 0) and (b mod 2 = 0) then
if a > b then writeln(a)
else writeln(b)
else if (a mod 2 = 1) and (b mod 2 = 1) then
if a < b then writeln(a)
else writeln(b)
else writeln(a * b);
end
else
writeln('Натуральное число - это все целые числа больше 0!');
end.
4,5(50 оценок)
Открыть все ответы
Ответ:
Zhenya12123
Zhenya12123
14.05.2023

//PascalABC.NET v3.3 1633

var arr: array [1..6, 1..6] of integer;

begin

 for var i:=1 to 6 do

   for var j:=1 to 6 do

     arr[i, j]:=random(-49, 50);

 

 writeln('Исходный массив: ');

 for var i:=1 to 6 do

     arr[i].PrintLn(', ');

     

 var num:=0;

 for var i:=1 to 6 do

   if arr[i, 2] < 0 then num += 1;

 writeln('Количество отрицательных элементов второго столбца: '+num);

 

 for var i:=1 to 6 do

   for var j:=1 to 6 do

     if arr[i, j] > 0 then arr[i, j]:=-49;

 writeln('Новый массив: ');

 for var i:=1 to 6 do

     arr[i].PrintLn(', ');

end.

4,4(35 оценок)
Ответ:
dirysasha
dirysasha
14.05.2023

Тут используется собственная функция для нахождения степени числа.

 

#include <iostream>
using std::cout;
using std::cin;
using std::endl;

int powerFunction(int, int);

int main()
{
   int number, power;

   cout << "Enter A: ";
   cin >> number;
   cout << "Enter N: ";
   cin >> power;

   cout << number << " to the power of " << power
      << " = " << powerFunction(number, power) << endl;

   return 0;
}

int powerFunction(int n, int p)
{
   int temp = 1;

   for(int i = 0; i < p; i++)
   {
      temp *= n;
   }

   return temp;
}


Составить программу вычеслений степени числа а с натуральным показателем n.
4,8(79 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ