Написать сочинение по информатике о том как я использую компьютер и чему бы хотела научится(делать что либо в нем)

👇

Ответ:

lyubov130906

18.11.2021

Я использую компьютер для того, чтобы делать рефераты, домашнюю работу, читать социальные сети. Я бы хотел(а) научиться делать собственную музыку, видео, фильмы, редактировать фотографии (выбери что - нибудь или дополни этот список другими действиями)

4,8(21 оценок)

Открыть все ответы

Ответ:

DenisPalashyk

18.11.2021

Залить 9-ти литровый кувшин.

Перелить из него 5 литров в 5-ти литровый кувшин. В 9-ти литровом кувшине останется 4 литра.

Вылить всю воду из 5-ти литрового кувшина.

Налить в 5-ти литровый кувшин оставшиеся 4 литра из 9-ти литрового кувшина.

Залить 9-ти литровый кувшин.

Перелить из него 1 литр в 5-ти литровый кувшин. В 9-ти литровом кувшине останется 8 литров.

Вылить всю воду из 5-ти литрового кувшина.

Перелить из 9-ти литрового кувшина 5 литров в 5-ти литровый кувшин. В 9-ти литровом кувшине останется 3 литра.

Вылить всю воду из 5-ти литрового кувшина.

Перелить из 9-ти литрового кувшина оставшиеся 3 литра в 5-ти литровый кувшин.

Залить 9-ти литровый кувшин.

Перелить из него 2 литра в 5-ти литровый кувшин. В 9-ти литровом кувшине останется 7 литров воды.

Вылить всю воду из 5-ти литрового кувшина.

Перелить из 9-ти литрового кувшина 5 литров в 5-ти литровый кувшин. В 9-ти литровом кувшине останется ровно 2 нужных нам литра

Объяснение:

Как-то так :D

4,7(7 оценок)

Ответ:

fizik24

18.11.2021

//PascalABC.NET 3.0, сборка 1088
begin
var a:=ReadLines('infile.txt').ToArray;
var n:=a.Length;
Writeln('*** Исходная информация ***');
// фамилия, имя, возраст, рост, вес
a.PrintLn(NewLine);
Writeln('*** Задание 1 ***');
var sves:real:=0;
var srost:real:=0;
foreach var s in a do begin
    srost+=StrToFloat(s.ToWords.ElementAt(3));
    sves+=StrToFloat(s.ToWords.ElementAt(4))
    end;
Writeln('Средний рост равен ',srost/n:5:1);
Writeln('Средний вес равен ',sves/n:4:1);
srost/=n; sves/=n;
Writeln('*** Задание 2 ***');
var f2:=OpenWrite('rost.txt');
foreach var s in a do begin
    var ss:=s.ToWords;
    var rost:=StrToFloat(ss.ElementAt(3));
    if rost>srost then begin
      var s0:=ss.Take(3).ToArray;
      var s1:=s0[0]+' '+s0[1]+', '+s0[2];
      Writeln(s1);
      Writeln(f2,s1)
      end
    end;
f2.Close;
Writeln('*** Задание 3 ***');
f2:=OpenWrite('ves.txt');
foreach var s in a do begin
    var ss:=s.ToWords;
    var ves:=StrToFloat(ss.ElementAt(4));
    if ves<sves then begin
      var s0:=ss.Take(3).ToArray;
      var s1:=s0[0]+' '+s0[1]+', '+s0[2];
      Writeln(s1);
      Writeln(f2,s1)
      end
    end;
f2.Close
end.

Тестовое решение:
*** Исходная информация ***
Иванов Игорь 14 158 47.4
Петров Павел 14 161 58.3
Козлов Кирилл 15 160 60.3
Сидорова Мария 14 156 45.9
Тяпкина Наталья 15 158 46
Ляпкин Алексей 15 161 58.6
Мамочкин Константин 14 157 52.8
*** Задание 1 ***
Средний рост равен 158.7
Средний вес равен 52.8
*** Задание 2 ***
Петров Павел, 14
Козлов Кирилл, 15
Ляпкин Алексей, 15
*** Задание 3 ***
Иванов Игорь, 14
Сидорова Мария, 14
Тяпкина Наталья, 15

4,7(46 оценок)

Это интересно:

Образование-и-коммуникации

21.03.2023

10 способов развить способность к обучению...

Финансы-и-бизнес

17.08.2020

Как перевести деньги через Western Union: шаг за шагом...

Хобби-и-рукоделие

25.10.2020

Как связать на спицах игрушечного медведя...

Образование-и-коммуникации