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

Вычислить сумму квадратов чисел от 1 до 30. Квадраты чисел записаны в файл. на паскале

👇
Ответ:
alexguzz55
alexguzz55
22.03.2023

Program g;

Var

a:integer;

Begin

Readln(a) ;

Writeln(sqr(a)) ;

End.

4,8(32 оценок)
Открыть все ответы
Ответ:
auviktory
auviktory
22.03.2023
Задача 1:

Imports System
Module MainModule
    Sub Main()
        Dim a, b, h, S As Double
        Console.Write("a = ")
        a = Console.ReadLine()
        Console.Write("b = ")
        b = Console.ReadLine()
        Console.Write("h = ")
        h = Console.ReadLine()
        S = (a + b) / 2 * h
        Console.Write("S = ")
        Console.WriteLine(S)
        Console.ReadKey
    End Sub
End Module

Задача 2:

Imports System
Module MainModule
    Sub Main()
        Dim x, y As Double
        Console.Write("x = ")
        x = Console.ReadLine()
        Console.Write("y = ")
        y = Console.ReadLine()
        If (x < 0) And (y < 0) Then
            x = -x
            y = -y
        Else If (x < 0) Or (y < 0) Then
            x += 0.5
            y += 0.5
        Else If (x >= 0.5) And (x <= 2) And (y >= 0.5) And (y <= 2) Then
            x /= 10
            y /= 10
        End If
        Console.Write("x = ")
        Console.WriteLine(x)
        Console.Write("y = ")
         Console.WriteLine(y)
        Console.ReadKey
    End Sub
End Module
4,5(6 оценок)
Ответ:
мася277
мася277
22.03.2023
Для решения этой задачи, нам нужно использовать пропорцию.

Давайте предположим, что x - это размер файла (в кбайт), который можно передать за 36 секунд.

У нас есть следующая пропорция:

1000 кб / 1 минута = x кб / 36 секунд.

Для решения этой пропорции, мы сначала должны привести единицы измерения к одному типу (минуты или секунды). В данном случае, у нас в условии задачи есть 1 минута, поэтому нам нужно привести 36 секунд к минутам, поделив их на 60:

36 секунд ÷ 60 = 0.6 минуты.

Теперь, у нас есть следующая пропорция:

1000 кб / 1 минута = x кб / 0.6 минуты.

Чтобы решить пропорцию, мы можем использовать кросс-умножение:

1000 кб × 0.6 минуты = x кб × 1 минута.

600 кб минута = x кб минута.

Таким образом, размер файла x = 600 кбайт.

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