Вычислить сумму двух целых чисел

@Rainscar · Регистрация: 10.10.2016

Студворк — интернет-сервис помощи студентам

Ваша задача - вычислить сумму двух целых чисел A (0 < A <1000), B (0 < B <1000).

вход
Одна линия , содержащая два числа A и B .

Выход
Одно целое число , которое является суммой A и B .

Лимит времени: 500 мс
Предел памяти: 1024 кб

open System

let a = Console.ReadLine()|>int
let b = Console.ReadLine()|>int

System.Console.WriteLine(a+b)

System.Console.Read() |> ignore

@diadiavova · 10.04.2019, 18:58

Rainscar, насколько я понимаю, вот это

Сообщение от Rainscar

Одна линия , содержащая два числа A и B

означает, что вводить оба числа надо в одну строку, используя какой-нибудь разделитель, например пробел. Как-то так

F#
1
2
3
printf "Введите два числа, разделив пробелом>"
let sum = System.Console.ReadLine().Split(' ') |> Array.map int |> Array.sum
printfn "%i" sum

@SomniPhobia · 10.04.2019, 19:03

Rainscar, привет!

Не по теме:

Я недавно пишу на F#. Попробовал тебе написал код.
До этого основательно писал и сейчас пишу на C++.

Кто знает, что лучше: выбрасывать исключения или подавать сигнал о сбое через option?

F#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
open System
 
[<EntryPoint>]
let main unit = 
    
    let split (str : string) =
        str.Split([|' '|])
    let try_parse_to_int str =
        match Int32.TryParse(str) with
        |false, _ -> failwith "Не удаётся получить целое число из строки"
        |_, value -> value
    let check_num num =
        if 0 < num && num < 1000
        then num
        else failwith "Число не лежит в диапазоне от 0 до 1 000"
 
    let rec summing unit =
        try
            printfn "Введите A и B через пробел"
            Console.ReadLine()
            |>split
            |>Array.map (fun str -> try_parse_to_int str)
            |>Array.map (fun num -> check_num num)
            |>Array.fold (fun sum value -> sum + value) 0
            |>printfn "%A"
            0
        with
            |Failure(msg) -> printfn "Возникла ошибка: %s. Повторите операцию" msg; printfn ""; summing unit
 
    summing unit

@SomniPhobia · 10.04.2019, 19:49

Прибрал код.

Кликните здесь для просмотра всего текста

F#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
open System
 
let symbols_split = " ,;"
 
[<EntryPoint>]
let main unit = 
    let split ss (str : string) =
        ss
        |>Seq.toArray
        |>str.Split
    let try_parse_to_int str =
        match Int32.TryParse(str) with
        |false, _ -> failwith "Не удаётся получить целое число из строки"
        |_, value -> value
    let check_num num =
        if 0 < num && num < 1000
        then num
        else failwith "Число лежит вне диапозона (от 0 до 1 000)"
 
    let rec summing unit =
        try
            printfn "Введите целые числа A и B через пробел"
            Console.ReadLine()
            |>split symbols_split
            |>Array.map (fun str -> 
                str
                |>try_parse_to_int
                |>check_num)
            |>Array.sum
            |>printfn "%i"
            0
        with
            |Failure(msg) -> printfn "Возникла ошибка: %s. Повторите операцию\n" msg; summing unit
 
    summing unit

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@Rainscar 0 / 0 / 0 Регистрация: 10.10.2016 Сообщений: 9

	Вычислить сумму двух целых чисел 10.04.2019, 17:58. Показов 3450. Ответов 3 Метки нет (Все метки) Ваша задача - вычислить сумму двух целых чисел A (0 < A <1000), B (0 < B <1000). вход Одна линия , содержащая два числа A и B . Выход Одно целое число , которое является суммой A и B . Лимит времени: 500 мс Предел памяти: 1024 кб open System let a = Console.ReadLine()\|>int let b = Console.ReadLine()\|>int System.Console.WriteLine(a+b) System.Console.Read() \|> ignore 0

Вычислить сумму двух целых чисел

Решение