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

Написать 1 задачу
на языке программирования с
использованием комбинированного типа
данных и текстовых файлов. Вывод.

Показать ответ
Ответ:
anakukla2
anakukla2
18.09.2021 17:13
Using System;

public class Test
{
public static void Main()
{
int n, a, b;
Console.Write("Введите номер задачи:\n");
Console.Write("1 - вычисление максимального числа;\n");
Console.Write("2 - вычисление минимального числа;\n");
Console.Write("3 - вычисление суммы чисел.\n");
Console.Write("4 - вычисление произведения чисел.\n");
n = int.Parse(Console.ReadLine());
Console.Write("Введите два числа:\n");
a = int.Parse(Console.ReadLine());
b = int.Parse(Console.ReadLine());
    switch (n) {
    case 1 : 
    if (a>b) Console.Write("max = {0}",a);
    else Console.Write("max = {0}",b);
    break;
    case 2 :
    if (a<b) Console.Write("min = {0}",a);
    else Console.Write("min = {0}",b);
    break;
    case 3:
    Console.Write("S = {0}",a+b);
    break;
    case 4:
    Console.Write("П = {0}",a*b);
    break;
    }
}
}

Пример:
Введите номер задачи:
1 - вычисление максимального числа;
2 - вычисление минимального числа;
3 - вычисление суммы чисел.
4 - вычисление произведения чисел.
4
Введите два числа:
5
8
П = 40
0,0(0 оценок)
Ответ:
FOMALEKSANDRA99
FOMALEKSANDRA99
26.06.2022 14:08
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadInteger('Введите трехзначное число:');
  var (a,b,c):=(x div 100,x div 10 mod 10,x mod 10);
  if b+c<>0 then
    if x mod (10*b+c)=0 then begin
      Writeln('Вычеркнуть первую цифру (',a,')');
      Exit
      end
  else
    if a+c<>0 then
      if x mod (10*a+c)=0 then begin
        Writeln('Вычеркнуть вторую цифру (',b,')');
        Exit
      end
    else
      if a+b<>0 then
        if x mod (10*a+b)=0 then begin
          Writeln('Вычеркнуть третью цифру (',c,')');
          Exit
        end;
  Writeln('Нет решения')
end.

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