Using System;using System.Collections.Generic;using System.Linq;using System.Text;using System.Threading.Tasks;
namespace ConsoleApplication3{ class Program { static void Main(string[] args) { Console.Write("a = "); double a = double.Parse(Console.ReadLine()); Console.Write("b = "); double b = double.Parse(Console.ReadLine()); Console.Write("c = "); double c = double.Parse(Console.ReadLine()); if (a > b) a = b; if (a > c) a = c; Console.WriteLine("Min = {0}", a); Console.ReadKey(); } }}
В глубокой древности - на стенах пещер, на глиняных табличках, восковых дощечках, на скрижалях, потом на папирусе, бересте, пергаменте и т. д.
Потом изобрели бумагу.
В старину писали стилом, палочками, гусиными перьями, углями. Были ещё какие-то средства.
В девятнадцатом веке изобрели пишущие машинки, фотоаппараты - ведь запечатление изображений на фотоплёнках и фотопластинках, это тоже запись информации. Также в 19 столетии появились граммофоны, патефоны, механические пианино, шарманки (музыка - тоже информация) .
А уже ближе к нашим временам появились магнтитофоны, видеомагнтитофоны, потом лазерные устройства для записи на диски. Наконец, мобильники, фотоаппараты, компьютеры - это тоже накопители информации, которая хранится на дисках, флэшках, картах памяти и т. д.
В общем, сам поищи в интернете, напиши разные варианты для поиска, например, "древние способы записи информации", "старинные носители информации", "папирус, глина, берестяные грамоты, письмена", "Александрийская библиотека" и т. д.
//Язык Pascal
Program Test;
var
Mas: array[1..10] of integer;
result1: integer;
result2: real;
function Sum(): integer;
var summa: integer;
begin
summa := 0;
for var i := 1 to 10 do
summa := summa + Mas[i];
Sum := summa;
end;
procedure Arifmetic(r1: integer; var A: real);
begin
A := r1 / 10;
end;
Begin
for var i := 1 to 10 do
begin
Write('Введите ', i, ' элемент: ');
Readln(Mas[i]);
end;
result1 := Sum();
Arifmetic(result1, result2);
Writeln();
Writeln('Сумма = ', result1);
Writeln('Среднее арифметическое = ', result2);
End.
var a,b,c: integer;
begin
writeln('Введите числа А, В, С');
readln(a,b,c);
if (c mod 2=1) and (c>0) then writeln(a+b) else writeln(b*c);
end.
Язык программирования Pascal
