Ввести с клавиатуры два перечня А и В, состоящих из 10
Ввести с клавиатуры два списка А и В, состоящих из 10 элементов. Решить уравнение ах=b, подставляя заместо а и b значения из списков. Итог вычислений поместить в перечень Х. Вывести на экран перечни А, В, Х и все элементы перечня Х, целая часть которых кратна 5.
1 ответ
Вероника
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программка не работает, обновите версию!
begin
var a:=new Listlt;realgt;;
a.AddRange(ReadSeqReal('Введите перечень А:',10));
var b:=new Listlt;realgt;;
b.AddRange(ReadSeqReal('Введите список B:',10));
var x:=new Listlt;realgt;;
x.AddRange(a.Zip(b,(p,q)-gt;q/p));
Write('A: '); a.Println;
Write('B: '); b.Println;
Write('X: '); x.Where(p-gt;Trunc(p) mod 5=0).Println;
end.
Пример
Введите перечень А: 1 5 -2 3.5 12 16.3 -7 1.3 0.15 10
Введите перечень B: 10.4 37 -14 6.3 1 -8 -12.94 6.9 18 52
A: 1 5 -2 3.5 12 16.3 -7 1.3 0.15 10
B: 10.4 37 -14 6.3 1 -8 -12.94 6.9 18 52
X: 10.4 0.0833333333333333 -0.49079754601227 5.30769230769231 120 5.2
// Внимание! Если программка не работает, обновите версию!
begin
var a:=new Listlt;realgt;;
a.AddRange(ReadSeqReal('Введите перечень А:',10));
var b:=new Listlt;realgt;;
b.AddRange(ReadSeqReal('Введите список B:',10));
var x:=new Listlt;realgt;;
x.AddRange(a.Zip(b,(p,q)-gt;q/p));
Write('A: '); a.Println;
Write('B: '); b.Println;
Write('X: '); x.Where(p-gt;Trunc(p) mod 5=0).Println;
end.
Пример
Введите перечень А: 1 5 -2 3.5 12 16.3 -7 1.3 0.15 10
Введите перечень B: 10.4 37 -14 6.3 1 -8 -12.94 6.9 18 52
A: 1 5 -2 3.5 12 16.3 -7 1.3 0.15 10
B: 10.4 37 -14 6.3 1 -8 -12.94 6.9 18 52
X: 10.4 0.0833333333333333 -0.49079754601227 5.30769230769231 120 5.2
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Облако тегов