По перше,ти не в 5, а десь у 3.По друге,відповідь: 3)
Так, для начала узнаем сколько всего символов в тексте, для этого перемножаем количество страниц, количество строк и символов в строке 150*35*50 = 262500 (общее количество символов), потом переводим скорость в байты 19200/8=2400. И делим 262500 на 2400 и получаем 109,375, так как ответ нужен целым числом, округляем и получаем 110. Надеюсь помог)
var s:string;
i:integer;
begin
readln(s);
for i:= length(s) downto 1 do
if s[i]=',' then delete (s, i, 1);
writeln(s);
end.
//Во всех трех задачах вывел массив на экран, чтобы был виден результат, но если это не нужно, то уберите последний цикл for.
//Константы "х" и "у" - это диапазон генерации числа
//Язык Pascal
---------------------------------
1 задача:
Program Test2;
const Size = 8; x = 1; y = 100;
Var i: integer; Arr: array[1..Size] of integer;
Begin
Randomize;
for i := 1 to Size do
Arr[i] := Random(x, y);
for i := 1 to Size do
Writeln('Элемент ', i, ' = ', Arr[i]);
End.
---------------------------------
2 задача:
Program Test2;
const Size = 8; x = 1; y = 100;
Var i: integer; Arr: array[1..Size] of integer;
Begin
Randomize;
for i := 1 to Size do
begin
while Arr[i] mod 2 = 0 do
Arr[i] := Random(x, y);
end;
for i := 1 to Size do
Writeln('Элемент ', i, ' = ', Arr[i]);
End.
---------------------------------
3 задача:
Program Test3;
const Size = 8;
Var i: integer; Arr: array[1..Size] of integer;
Begin
for i := 1 to Size do
begin
Write('Введите ', i, ' элемент массива: ');
Readln(Arr[i]);
end;
Writeln();
for i := 1 to Size do
Writeln('Элемент ', i, ' = ', Arr[i]);
End.
Const
kk=100; // макксимальное количество старых автомобилей
type
tAuto=record
FIO:string[12]; // ФИО владельца
Marka:string[12]; // Марка автомобиля
GodV:integer; // Год выпуска
GosNom:string[6]; // Номер автомобиля
Color:string[12] // Цвет
end;
var
Cars:array[1..kk] of tAuto;
k:integer; // количество старых автомобилей
year:integer; // год, на который производится расчет
i:integer;
begin
k:=0;
Write('Год, на который производится расчет: '); Readln(year);
// Далее глупый ввод данных, но он так сделан из-за кривой
// постановки задачи. Нам надо отобрать из всех автомобилей
// часть по условию, но для этого надо иметь сведения обо всех этих
// авомобилях. В реальности, конечно, читается готовый файл
// и из него делается отбор, а тут чтение из файла имитируется
// вводом с клавиатуры. Фактически, вместо того, чтобы сразу ввести год
// выпуска и прервать дальнейший ввод сведений по автомобилю,
// если он не попадает в выборку, мы вводим все, а уж потом лишние
// бракуем.
// Фактически, изначально приучаем школьников делать, как не надо.
repeat
Inc(k);
Writeln('Введите сведения об автомобиле');
Write('ФИО владельца (* - закончить ввод): '); Readln(Cars[k].FIO);
if Cars[k].Fio[1]='*' then begin Dec(k); Break end;
Write('Марка автомобиля: '); Readln(Cars[k].Marka);
Write('Год выпуска: '); Readln(Cars[k].GodV);
Write('Номер автомобиля: '); Readln(Cars[k].GosNom);
Write('Цвет кузова: '); Readln(Cars[k].Color);
if year-Cars[k].GodV<=10 then Dec(k)
until k=kk; // ограничение на переполнение массива
// Теперь Cars[] содержит сведения о k автомобилях для вывода
Writeln;
Writeln('Количество автомобилей старше 10 лет равно ',k);
if k=0 then Exit; // На нет и суда нет
for i:=1 to 62 do Write('-'); Writeln;
Write(' ФИО Марка Год Номер Цвет');
Writeln(' Возраст');
Writeln(' владельца автомобиля выпуска автомобиля кузова');
for i:=1 to 62 do Write('-'); Writeln;
for i:=1 to k do
With Cars[i] do
Writeln(FIO:12,' ',Marka:12,GodV:6,' ',GosNom:6,' ',
Color:12,year-GodV:3);
for i:=1 to 62 do Write('-'); Writeln
end.
Пример
Год, на который производится расчет: 2016
Введите сведения об автомобиле
ФИО владельца (* - закончить ввод): Петров Г.В.
Марка автомобиля: Лада
Год выпуска: 2003
Номер автомобиля: С430АМ
Цвет кузова: Белый
Введите сведения об автомобиле
ФИО владельца (* - закончить ввод): 123456789012
Марка автомобиля: 123456789012
Год выпуска: 2000
Номер автомобиля: ХХХХХХ
Цвет кузова: 123456789012
Введите сведения об автомобиле
ФИО владельца (* - закончить ввод): *
Количество автомобилей старше 10 лет равно 2
--------------------------------------------------------------
ФИО Марка Год Номер Цвет Возраст
владельца автомобиля выпуска автомобиля кузова
--------------------------------------------------------------
Петров Г.В. Лада 2003 С430АМ Белый 13
123456789012 123456789012 2000 ХХХХХХ 123456789012 16
--------------------------------------------------------------
<u>Замечание:</u> у здешнего шрифта отвратительная манера все искажать (сколько не просили сделать возможность вывода моноширинным шрифтом - глухо). Посему истинная картинка дана во вложении.
