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

Подскажите кто автор этого текста.отец и сын шли по полю.отец спросил сына : -видишь,ползёт паук.что он делает? -он плетёт свою паутину. -а вон муравей видишь? -вижу, он бежит с крошкой во рту. -посмотри, кого ты видишь вверху? -вверху летит ласточкаи в клюве держит травку. тогда отец говорит сыну: -вот так, мой милый! эти маленькие существа могут служить тебе примером.паук расставляет паутину, ловит в неё комаров и мух и употребляет их в пищу.муравей бегает и ищет пищу для своих детей.найдя крошку,он её не съест,а с радостью бежит с ней домой.ласточка,чтобы устроить гнездо для своих птенцов,собирает травку.нет ни одной живой души, которая не трудилась бы, и ты живёшь не для того,чтобы бездельнячать. нужно привыкать к труду.

👇
Ответ:
AlinaAlina110624
AlinaAlina110624
15.01.2022
Сказка Алтынсарина
Муравей, паук и ласточка
4,7(51 оценок)
Открыть все ответы
Ответ:
DogiWars
DogiWars
15.01.2022

const int n = 5;

int bigger0 = 0;

int smaller0 = 0;

int sumBigger0 = 0;

int sumSmaller0 = 0;

int[] arr = new int[n];

for(int i = 0; i < n; i++){

arr[i] = Convert.ToInt32(Console.ReadLine());

}

for(int i = 0; i < n; i++){

if(arr[i] >= 0){

++bigger0;

sumBigger0 += arr[i];

}

else{

++smaller0;

sumSmaller0 += arr[i];

}

Console.WriteLine("Сумма положительных чисел: {0}\nСумма отрицательных чисел: {1}\nВсего положительных чисел: {2}\nВсего отрицательных чисел: {3}", sumBigger0, sumSmaller0, bigger0, smaller0);

}

Console.ReadKey();

Объяснение:

В пояснение не нуждается.

4,8(70 оценок)
Ответ:
zulu51
zulu51
15.01.2022

Уже писал, но попал в баг(

Так вот. В паскале это будет так:

1)var a,b,c:integer;

begin

         readln(a,b);

         if a div 2 =0 then c:=(a+b)*(a+b)*(a+b);

                              else c:=a*a*a+b*b*b;

         writeln(c);

end.

2)var a,b,c:integer;

          d:real;

begin

          readln(a,b,c);

          if (a<0) or (b<0) or (c<0) then d:=abs(a+b+c)

                                                       else d:=sqrt(a+b+c);

         writeln(d:0:2);

end.

3)var a,b,c:integer;

begin

          readln(a,b,c);

          if (a*b*c<0) then begin a:=a*a; b:=b*b; c:=c*c; end

                               else begin a:=abs(a); b:=abs(b); c:=abs(c); end;

          writeln( a, ' ', b, ' ', c);

end.

Вот так вот.

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