В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Queen102938
Queen102938
25.10.2020 22:19 •  Информатика

1.Вычисление произведения. Вычислить факториал: N!=1*2*3*…N.
Первоначальное значение произведения P:=1.
Написать блок-схему
2. Напечатать «столбиком» все числа от 20 до 35.
Написать блок-схему.
3. Вывести в строку следующие числа: 2.1, 2.2, 2.3,…,2.8.
Написать блок-схему.

Показать ответ
Ответ:
MoriYuka
MoriYuka
13.05.2022 03:53
1.
var 
  a, s, cifra: integer;
begin
  s:= 0;
  writeln('Введите натуральное число');
  readln(a);
  while a > 0 do
  begin
    cifra:= a mod 10;  //Определяем очередную цифру числа
    s:= s + cifra * cifra * cifra;  //Прибавляем к значению s цифру в кубе
    a:= a div 10;  //целочисленное деление числа на 10 (отсекаем текущую цифру)
  end;
  writeln('Сумма кубов цифр числа:  ', s);
end.
2.
var
  a: integer;
begin
  writeln('Введите натуральное число');
  readln(a);
  while a > 9 do  {Определяем первую цифру числа путем отрезания цифр числа, пока число не станет однозначным. Полученное число и будет первой цифрой}
    a:= a div 10;
  writeln('Первая цифра числа:  ', a);
end.
    
0,0(0 оценок)
Ответ:
znaika757
znaika757
02.12.2021 16:37

//Для проверки результата вывел массив на экран

using System;

namespace App1

{

   class Program

   {

       private static void Main()

       {

           const int x = -10;

           const int y = 20;

           int n, k;

           Console.Write("Enter n: "); n = int.Parse(Console.ReadLine());

           Console.Write("Enter k: "); k = int.Parse(Console.ReadLine());

           Console.WriteLine($"{Environment.NewLine}Array:");

           int counter = 0;

           int[] array = new int[n];

           Random rand = new Random();

           for (int i = 0; i < array.Length; i++)

           {

               array[i] = rand.Next(x, y + 1);

               if (array[i] > 0 && array[i] % k == 0) { counter++; }

               Console.WriteLine($"{i + 1}. {array[i]}");

           }

           Console.Write(Environment.NewLine);

           if (counter > 0) { Console.WriteLine($"В массиве {counter} элементов, соответствующих заданному условию."); }

           else { Console.WriteLine("В массиве нет элементов, соответствующих заданному условию."); }

           Console.ReadKey();

       }

   }

}


Написать программу для массива ( c# ): п1. дан массив целых чисел из n элементов, заполненный случай
Написать программу для массива ( c# ): п1. дан массив целых чисел из n элементов, заполненный случай
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота