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

с задачей по информатике в паскале
Нужно написать программу.


с задачей по информатике в паскале Нужно написать программу.

👇
Ответ:
jenjenle
jenjenle
31.08.2022
');

end.

Объяснение:

4,5(64 оценок)
Открыть все ответы
Ответ:
kostetXD
kostetXD
31.08.2022

Для нелюбящих указывать язык в задании предлагается решение на C# 7.3

using System;

using System.Collections.Generic;

using System.Linq;

public class Program

{

public static void Main()

{

 int[] data = ReadIntSeq(8, "Enter values").ToArray();

 Console.Write(string.Format("Minimal number that ends by 9 is {0}", data.MinBy(x => x % 10 == 9)));

}

 

public static IEnumerable<int> ReadIntSeq(int n, string promt = null)

{

 if (promt != null)

  Console.WriteLine(promt);

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

 {

  yield return int.Parse(Console.ReadLine());

 }

}

}

public static class Extensions

{

public static T MinBy<T>(this IEnumerable<T> source, Func<T, bool> predicate) where T: IComparable

{

 return source.Where(predicate).Min();

}

}

4,7(72 оценок)
Ответ:
kamilya14957
kamilya14957
31.08.2022
Народ последнюю задачку проверьте опять не могу найти ошибку
УСЛОВИЕ:
Дано натуральное четырехзначное число. Найти наименьшую нечетную цифру в числовой записи данного числа.
Формат входных данных
Входной файл содержит натуральное четырехзначное число.
Формат выходных данных
Выведите наименьшую нечетную цифру в числовой записи данного числа. Если нечетных цифр в числе нет, выведите в выходной файл -1.

РЕШЕНИЕ:
PascalВыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 var n,a,b,c,d:integer; f,g:text; begin assign(f,'input.txt'); assign(g,'output.txt'); reset(f); rewrite(g); readln(f,n); a:=n div 1000; b:=n div 100 mod 10; c:=(n mod 100) div 10; d:=n mod 10; if (a mod 2=0) and (b mod 2=0) and (c mod 2=0) and (d mod 2=0) and (n<>0)  then writeln(g,'-1') else if (a<=b) and (a<=c) and (a<=d) then writeln(g,a) else if (b<=a) and (b<=c) and (b<=d)then  writeln(g,b) else if (c<=a) and (c<=b) and (c<=d) then writeln(g,c) else if (d<=a) and (d<=b) and (d<=c) then writeln(g,d) else close(f); close(g); end.
4,6(72 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ