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

Написать цикл do while в котором к заданному числу прибавляется 10 до тех пор, пока сумма не станет больше 1000

👇
Ответ:
Tugoi
Tugoi
01.03.2023
//Pascal ABC.NET 3.1 сборка 1219

Var
 a:integer;
begin
readln(a);
while (a<=1000) do
 a:=a+10;
writeln(a);
end.

Пример ввода:
567
Пример вывода:
1007
4,8(47 оценок)
Ответ:
Coolgirl03
Coolgirl03
01.03.2023
' Вариант на VBScript
Sub Zadanie()
    a = CInt(InputBox("a ="))

    Do While a <= 1000
        a = a + 10
    Loop
    MsgBox a
End Sub

' Вариант на для VB.Net
Module Module1

    Sub Main()
        Dim a As Integer
        Console.Write("a=")
        a = CInt(Console.ReadLine())

        Do While a <= 1000
            a = a + 10
        Loop
        Console.WriteLine(a)
    End Sub

End Module
4,4(51 оценок)
Открыть все ответы
Ответ:
3Belchonok3
3Belchonok3
01.03.2023
Начнём с того, чтобы создавать презентацию в MSPowerPoint, необходимо создать слайды во вкладке "Главное" где в левом верхнем углу будет окошко создания слайда, где можно также выбрать шаблон желаемого слайда (титульный),Далее создав определённое количество слайдов мы можем приступить к работе с ними (Программа PowerPoint Обладает широкимфункционалом визуальных функций, чтобы привлекать внимание зрителя), мы можем вставить: звук,картинки,диаграммы,таблицы,видеоклипы и т.д.( и впоследствии настраивать их:воспроизведение,отображение)Можно настроит задний фон для слайдов(можно выбрать из списка шаблонов), и их анимацию для каждого по отдельности(это придаст интереса при просмотре)
Запишите основные этапы создания презентации
Запишите основные этапы создания презентации
4,5(24 оценок)
Ответ:
Const
    handsfree = true;

var
    a: array[1..100] of real;
    i, n: integer;
    min, max: real;
    k: integer;

begin
    {ввод массива}
    if handsfree then
        n := random(20) + 5
    else begin
        write('n = ');
        readln(n);
    end;
    
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        if handsfree then begin
            a[i] := random(100);
            write(a[i], ' ');
        end
        else readln(a[i]);
    end;
    writeln();
    
    {подсчет элементов}
    k := 0;
    for i := 1 to n do
        if a[i] > 5 then k := k + 1;
    writeln(k);
end.
4,4(90 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ