Uses crt; var s: real; n: integer; begin clrscr; write('collichestvo korney: '); readln(n); s: =sqrt(2)*n; write('s=', s: 0: 4); readkey; end.

все

uses crt, math

// pascalabc.net 3.4.2, сборка 1785 от 06.09.2018

// внимание! если программа не работает, обновите версию!

type

  train = record

    пунктназначения: string;

    номерпоезда: string;

    времяотправления: datetime

  end;

procedure вводданных(список: list< train> );

begin

  var поезд: train;

  var ччмм: string;

  for var i : = 1 to 6 do // 6 поездов

  begin

    println('ввод данных о поезде', i);

    поезд.пунктназначения : = readlnstring('пункт назначения: ');

    поезд.номерпоезда : = readlnstring('номер поезда: ');

    repeat

      ччмм : = readlnstring('время отправления (чч: мм): ');

    until datetime.tryparse(ччмм, поезд.времяотправления);

    список.add(поезд)

  end

end;

procedure поискпоездов(список: list< train> ; пунктназначения: string);

begin

  var отобрано: =

      список.where(поезд-> поезд.пунктназначения=пунктназначения);

  if отобрано.count> 0 then

    foreach var поезд in отобрано do

      writeln($'{поезд.номерпоезда} {поезд.времяотправления: hh-mm}')

  else

    println('нет поездов на это направление')

end;

begin

  var поезда : = new list< train> ;

  вводданных(поезда);

  поискпоездов(поезда,readlnstring('куда едем? '))

end.

должны потому что:

1. сейчас 21 век, вокруг есть компьютеры и их изучение необходимо.

2. информатика развивает логическое мышление.

3. на информатике можно изучить язык программирования, с него можно писать программы.

4. изучение программ worl и excel нужны чтобы устроится на работы. почти везде просят эти знания.

5. работа программистом востребована в наши дни, за эту работу платят много денег.

не должны:

1. можно обойтись и без информатики, например в деревне. пасти овц и сажать картошку.

2. хоть программирование не сложнее иностранного языка, он даётся некоторым людям тяжело.

3. на уроке информатики даётся не много полезной информации, лучше ходить в специальные места для программирования или 3д моделирования.

4. вместо уроков обучится потом самостоятельно.

5. если уже знаешь всё и так, можно и не изучать повторно.