В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
DartMatv
DartMatv
28.03.2023 08:41 •  Информатика

сделать контрольную по ИВТ​

Показать ответ
Ответ:
fffff131
fffff131
16.11.2022 18:40
// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходный массив [',8,',',7,'] ***');
  var a:=MatrRandom(8,7,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  for var i:=0 to a.RowCount-1 do begin
    a.SetRow(i,a.Row(i).Sorted.ToArray)
    end;
  Writeln('*** Результирующий массив ***');
  a.Println(4)  
end.

Пример
*** Исходный массив [8,7] ***
 -45 -24  26  38 -83 -97  77
  15 -68  80 -47   3 -61 -52
 -71  70 -52  46  70  59 -15
 -66 -20 -32  82  63   1  76
  93 -99 -38  22  83 -36 -42
  53  17 -19  -7  47  12 -58
  53  21  40 -88 -89  65  80
 -73 -16 -78 -62   3  18 -79

*** Результирующий массив ***
 -97 -83 -45 -24  26  38  77
 -68 -61 -52 -47   3  15  80
 -71 -52 -15  46  59  70  70
 -66 -32 -20   1  63  76  82
 -99 -42 -38 -36  22  83  93
 -58 -19  -7  12  17  47  53
 -89 -88  21  40  53  65  80
 -79 -78 -73 -62 -16   3  18
0,0(0 оценок)
Ответ:
Pollyru
Pollyru
09.05.2020 11:44
Var
  cl,lp:integer;
begin
  Write('Количество символов в строке- '); Read(cl);
  Write('Количество строк на странице- '); Read(lp);
  Writeln('Количество символов на странице: ',cl*lp)
end.
 
Пример
Количество символов в строке- 68
Количество строк на странице- 45
Количество символов на странице: 3060

uses Crt;
var
  nt:string; { наименование товара }
  kt:real; { количество товара }
  ct:real; { цена товара за единицу }
begin
  Write('Наименование товара- '); Readln(nt);
  Write('Количество товара- '); Read(kt);
  Write('Цена за единицу товара- '); Read(ct);
  ClrScr;
  Writeln(nt,' - ',ct*kt:0:2)
end. 
 
Результаты работы программы даны во вложениях

const
  podn=0.13; { подоходный налог }
  pensf=0.01; { в Пенсионный фонд }
var
  os:real; { оклад сотрудника }
  nd:integer; { количество отработанных дней }
  nr:integer; { количество рабочих дней в месяце }
  nach:real; { начислено }
  sp:real; { сумма подоходного налога }
  spf:real; { сумма отчислений в ПФ }
  nzp:real; { итого начислений на зарплату }
  svyd:real; { сумма к выдаче }
begin
  Write('Оклад, руб- '); Read(os);
  Write('Отработано дней- '); Read(nd);
  Write('Рабочих дней- '); Read(nr);
  nach:=os*nd/nr; { может получиться нецелое число }
  { округлим до сотых долей }
  nach:=Round(nach*100)/100;
  sp:=nach*podn; sp:=Round(sp*100)/100;
  spf:=nach*pensf; spf:=Round(spf*100)/100;
  nzp:=sp+spf;
  svyd:=nach-nzp;
  Writeln('Начислено, руб:         ',nach:0:2);
  Writeln('Подоходный налог, руб:  ',sp:0:2);
  Writeln('В Пенсионный фонд, руб: ',spf:0:2);
  Writeln('Итого налогов, руб:     ',nzp:0:2);
  Writeln('К выдаче, руб:          ',svyd:0:2)
end.

Пример
Оклад, руб- 46420
Отработано дней- 19
Рабочих дней- 22
Начислено, руб:         40090.00
Подоходный налог, руб:  5211.70
В Пенсионный фонд, руб: 400.90
Итого налогов, руб:     5612.60
К выдаче, руб:          34477.40

Написать программу в паскале pascal авс для самостоятельного решения 1) известно количество символов
Написать программу в паскале pascal авс для самостоятельного решения 1) известно количество символов
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота