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

В каком файле содержится информация о зараженных и вылеченных объектах?

Показать ответ
Ответ:
Yrikrylko
Yrikrylko
02.04.2022 05:46
Я в диалектах не очень, но вот вспомнил VB.net :)
 Sub Main()
        Dim a(10) As Integer
        Dim b As Integer = 1
        Dim c As Integer

        Dim R As Random = New Random()
        For i As Integer = 0 To 10
            a(i) = R.Next(12)
            Console.WriteLine("[" + i.ToString() + "] => " + a(i).ToString())
        Next

        For i As Integer = 0 To 10 
           If ((a(i) Mod 2 = 0) And (a(i) < 0)) Then b = b * a(i)
            If ((a(i) Mod 3 = 0) Or (a(i) Mod 5 = 0)) Then c = c + 1
        Next
        Console.WriteLine("Произведение чётных отрицательных: " + b.ToString())
        Console.WriteLine("Кол-во кратных 3 или 5: " + c.ToString())
        Console.Read()
    End Sub
0,0(0 оценок)
Ответ:
alexandrapavlov1
alexandrapavlov1
01.02.2022 20:32
По моему так:
program p;
var
a,b,c:integer;
begin
writeln('первое число:');
readln(a);
writeln('второе число:');
readln(b);
writeln('третие число:');
readln(c);
if (a>b) and (a>c) then
writeln('Первое число является наибольшим');
if (a>b) and (a<c) or (a<b) and (a>c) then
writeln('Первое число является средним');
if (a<b) and (a<c) then
writeln('Первое число является наимешим');
if (b>a) and (b>c) then
writeln('Второе число является наибольшим');
if (b>a) and (b<c) or (b<a) and (b>c) then
writeln('Второе число является средним');
if (b<a) and (b<c) then
writeln('Второе число является наимешим');
if (c>b) and (c>a) then
writeln('Третие число является наибольшим');
if (c>b) and (c<a) or (c<b) and (c>a) then
writeln('Третие число является средним');
if (c<b) and (c<a) then
writeln('Третие число является наимешим');
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота