Вика2003033
27.03.2022 02:45

Организация ввода и вывода данных с использованием файлов

1. Для выполнения операций с логическими данными в языке Паскаль используют обозначение
1) real
2) integer
3) char
4) boolean
2. Запишите, как на языках программирования называ¬ют число, определяющее количество позиций на экране, которые занимает выводимая величина.
Запишите, как на языках программирования называют запись алгоритмов.
4. Для выполнения операций с целочисленными данными в языке Паскаль используют обозначение
1) real
2) integer
3) char
4) boolean
5. После выполнения программы, записанной на языке Паскаль
program prim;
var s: integer;
begin s:=15;
write (‘s=’, s)
end.
на экран будет выведено
s:=15
s=15
‘s=’15
s= 15

Типовые задачи обработки массивов
1. Сколько единиц в двоичной записи десятичного числа 519?
2. Сколько нулей в двоичной записи десятичного числа 507?
3. Переведите в десятичную систему двоичное число 1010012.
4. Вычислите: 101011012 − 2558 + D16. ответ запишите в десятичной системе счисления. В ответе запишите только число, основание системы счисления писать не нужно.
5. Укажите наименьшее четырёхзначное шестнадцатеричное число, двоичная запись которого содержит ровно 6 нулей. В ответе запишите только само шестнадцатеричное число, основание системы счисления указывать не нужно.

Символьный тип данных

1. Какой тип данных в языке Pascal предназначен для хранения символьной информации?
1) byte
2) integer
3) real
4) char

2. Какой тип данных в языке Pascal предназначен для хранения строковой информации?
1) integer
2) char
3) string
4) byte

3. Что является результатом функций, предназначенных для выполнения операций над строками?
1) Только число.
2) Только строка.
3) Строка или число.
4. Функция для определения длины строки
1) ord(x)
2) length(x)
3) pred(x)
4) round(x)

5. Процедура УДАЛЯЕТ из строки ST участок, содержащий N символов с позиции P.
1) Delete(st,p,n)
2) val(st,p,n)
3) insert(st,p,n)

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
LizaIlina1
08.09.2021 01:04
Var
begin
readln(n);
if n=1 then begin writeln('1 месяц');writeln('кол-во дней');end;
if n=2 then begin writeln('2 месяц');writeln('кол-во дней');end;
if n=3 then begin writeln('3 месяц');writeln('кол-во дней');end;
if n=4 then begin writeln('4 месяц');writeln('кол-во дней');end;
if n=5 then begin writeln('5 месяц');writeln('кол-во дней');end;
if n=6 then begin writeln('6 месяц');writeln('кол-во дней');end;
if n=7 then begin writeln('7 месяц');writeln('кол-во дней');end;
if n=8 then begin writeln('8 месяц');writeln('кол-во дней');end;
И так до 12 раз...
Я не уверен что тебе нужен такой монстр...
В место к примеру 1 месяца пишешь январь...
0,0(0 оценок)
Ответ:
nikitinaani19
10.07.2022 14:30
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var s:=ReadLines('in.txt').ToArray;
  var n:=StrToInt(s[0]);
  var a:=s[1].ToWords.Select(e->StrToInt(e)).ToArray;
  var f:=OpenWrite('out.txt');
  Writeln(f,n,' - (кол-во чисел)');
  foreach var e in a do Write(f,e,' '); Writeln(f);
  Writeln(f,'Среднее значение четных ',
    a.Where(x->x.IsEven).Average);
  Writeln(f,'Среднее значение нечетных ',
    a.Where(x->x.IsOdd).Average);
  f.Close
end.

Файлы in.txt и out.txt находятся во вложении.

Содержимое файла out.txt:
15 - (кол-во чисел)
-22 49 33 47 -10 -1 20 -18 2 21 2 -25 21 -47 -36
Среднее значение четных -8.85714285714286
Среднее значение нечетных 12.25
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота