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

1) даны два числа а и b. написать программу, которая находит меньшее из них и выводит на экран соответствующий результат. 2) дано целое число. написать программу, которая заменяет его на 0, если число отрицательное, и выводит его без изменений, противном случае. 3) дано целое число n. написать программу увеличивающую его на 10, если число больше 0.

👇
Ответ:
Vladislav525245264
Vladislav525245264
02.11.2022
Задача 1
var
a,b:Integer;
Begin
 Read(a,b);
 if (a>b) then Writeln(b)
  else if (a<b) then Writeln(a)
  else Writeln('Числа равны');
end.

Задача 2
var
n:Integer;
Begin
 Read(n);
 if (n<0) then Writeln(0)
  else Writeln(n);
end.

3адача 3.
var
n:Integer;
Begin
 Read(n);
 if (n>0) then Writeln(n+10)
  else Writeln(n);
end.
4,4(23 оценок)
Открыть все ответы
Ответ:
olgaazov73
olgaazov73
02.11.2022

Объяснение:

using System;

class Program

{

   static int P(string p)

   {

       int a = 0, dec = 1;

       for (int i = p.Length - 1; i >= 0; i--)

       {

           a += (p[i] - '0') * dec;

           dec *= 10;

       }

       return a;

   }

   static void Main(string[] args)

   {

       int minSum = 1000000000, maxSum = 0, itMin = 0, itMax = 0;

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

       {

           int nowSum = 0;

           string a = Console.ReadLine();

           string[] now = a.Split(' ');

           for (int j = 0; j < now.Length; j++)

           {

               int n = P(now[j]);

               nowSum += n;

           }

           if (minSum > nowSum)

           {

               itMin = i;

               minSum = nowSum;

           }

           if (maxSum < nowSum)

           {

               itMax = i;

               maxSum = nowSum;

           }

       }

       Console.WriteLine("{0} - строка с минимумом, {1} - строка с максимумом", itMin + 1, itMax + 1);

       Console.ReadLine();

   }

}

4,4(32 оценок)
Ответ:
tsukhaya
tsukhaya
02.11.2022
1)var a:array[1..4,1..4] of integer;
      i,j,s:integer;
begin
      for i:=1 to 4 do
         for j:=1 to 4 do 
               readln(a[i,j]);
         
           for i:=1 to 4 do begin 
                     writeln();
                   for j:=1 to 4 do begin 
                     write(a[i,j],' '); 
                    if (i+j>5) then s:=s+a[i,j];
                        end;
                 end;
writeln();
write(s);
end.

2)var a:array[1..4,1..4] of integer;
      i,j,s:integer;
begin
      for i:=1 to 4 do
         for j:=1 to 4 do 
               readln(a[i,j]);
         
           for i:=1 to 4 do begin 
                     writeln();
                   for j:=1 to 4 do begin 
                     write(a[i,j],' '); 
                    if (i>J) then s:=s+a[i,j];
                        end;
                 end;
writeln();
write(s);
end.
4,4(88 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ