решить задачу D - Обыкновенные дроби Максимальное время работы на одном тесте: 2 секунды Максимальный объем используемой памяти: 64 мегабайта Имя входного файла: input.txt Имя выходного файла: output.txt Вам даны две обыкновенные дроби: A/B и C/D, с которыми нужно произвести арифметическое действие и представить результат в виде несокращаемой дроби или целого числа. Числители целые и не превосходят 10⁹ по модулю. Знаменатели целые, положительные и не превосходят 10⁹. Входные данные На единственной строке через пробел: числитель первой дроби A, знаменатель первой дроби B, арифметическое действие, одно из: add — сложить A/B и C/D, subtract — из A/B вычесть C/D, multiply — умножить A/B на C/D, divide — разделить A/B на C/D. числитель второй дроби C, знаменатель второй дроби D. Выходные данные Единственное число, если результат — целое число. Числитель и через пробел знаменатель результата, если результат — дробь.
Ответы
Попробуем сделать сортировку букв латинского алфавита.
const
n = 20;
var
a: array[1..n] of char;
i, j: integer;
t: char;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to n do
begin
a[i] := Chr(random(26)+Ord('A'));
Write(a[i],' ')
end;
Writeln;
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] > a[j+1] then
begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;
Writeln('Отсортированный по возрастанию массив');
for i := 1 to n do Write(a[i],' ');
Writeln
end.
Тестовое решение:
Исходный массив
G Z L H X A R E C F G X O T C L N U D L
Отсортированный по возрастанию массив
A C C D E F G G H L L L N O R T U X X Z
const
n = 20;
var
a: array[1..n] of char;
i, j: integer;
t: char;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to n do
begin
a[i] := Chr(random(26)+Ord('A'));
Write(a[i],' ')
end;
Writeln;
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] > a[j+1] then
begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;
Writeln('Отсортированный по возрастанию массив');
for i := 1 to n do Write(a[i],' ');
Writeln
end.
Тестовое решение:
Исходный массив
G Z L H X A R E C F G X O T C L N U D L
Отсортированный по возрастанию массив
A C C D E F G G H L L L N O R T U X X Z
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
var a,b,c,d: integer; {объявление переменных a,b,c и говорим что они целые}
begin {начало}
writeln('введите три числа'); {запрос чисел}
readln(a,b,c); {ввод чисел}
d:=a*b*c; {умножаем числа и присваиваем d их значение}
if (d<50) then {если произведение чисел меньше 50 то}
a:=a*10; {первое число умножаем на десять}
b:=b*10; {второе число умножаем на десять}
c:=c*10; {третье число умножаем на десять}
writeln(a); {выводим первое}
writeln(b); {выводим второе}
writeln(c); {выводим третье}
else {иначе}
writeln(d); {выводим произведение}
end. {конец}
P.S. этот символ { } паскаль не читает и означает он коментарий