Информатика: Небольшое сообщение на тему

Небольшое сообщение на тему < >

👇

Ответ:

SargonTM

17.05.2022

В настоящее время уже ни для кого не секрет, что компьютер стал практически незаменимым элементом человеческой жизни. Компьютер используется для такого большого количества действий, настолько упрощает жизнь, что, наверное, уже все люди в нашей стране его себе купили. И после этого компьютер стал восприниматься как что-то целое, неделимое. Тем не менее, в реальности это не совсем так, потому что компьютер состоит из отдельных элементов. И одним из очень важных таких элементов является компьютерная мышь.

Компьютерная мышь, такой, какой мы знаем ее сейчас, существовала далеко не всегда. Она выглядела более массивной, менее удобной, имела совершенно другие конструктивные особенности, чем сейчас. Сегодня разрабатываются совершенно новые компьютерные мыши, которые и выглядят привлекательнее, красивее, и стоят значительно дешевле. Для тех, кто действительно увлечен компьютером, подобрать подходящую мышь вовсе не составляет труда – их ассортимент в магазинах электроники просто чрезвычайно обширен. Там представлены и специальные мыши для компьютерных игр, и офисные мыши, и некоторые модифицированные модели, имеющие дополнительные клавиши или, напротив, лишенные кабеля и работающие беспроводным образом. Все это говорит о том, что мышь не теряет своей популярности и, как минимум, в ближайшее время будет оставаться чрезвычайно используемым предметом.

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

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

Ответ:

vhbhvgh

17.05.2022

Program qw;
uses crt;
Type
   Atlas=Record
       country,capital:string;
       area,people:real;
     end;
   ps=File of atlas;
Var f:ps;
    z,t:atlas;
Begin
assign(f,'1.dat');
rewrite(f);
    z.country:='Латвия'; z.area:=67.7;
    z.people:=2.6; z.capital:='Рига';
    write(f,z);
    z.country:='Литва'; z.area:=65.2;
    z.people:=3.4; z.capital:='Вильнюс';
    write(f,z);
    z.country:='Польша'; z.area:=313;
    z.people:=34.8; z.capital:='Варшава';
    write(f,z);
    z.country:='Украина'; z.area:=603.7;
    z.people:=50; z.capital:='Киев';
    write(f,z);
    z.country:='Россия'; z.area:=17075.4;
    z.people:=139; z.capital:='Москва';
    write(f,z);
Close(f);
assign(f,'1.dat');
reset(f);
read(f,t);
while not(eof(f)) do
    begin
      read(f,z);
      if t.people/t.area < z.people/z.area then t:=z;
    end;
close(f);
writeln('Cтранa с наибольшей плотностью населения:');
writeln(t.country,' (плотность населения равна ',t.people/t.area:9:6,' млн на кв.км)');
end.