<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(7,-5,5); a.Println(',');
a.Transform(t->t>3?-10:t+2); a.Println(',')
end.
<u>Пример</u>
-2,-1,4,2,5,0,2
0,1,-10,4,-10,2,4
Первое задание можно перефразировать (число меньше 50) или (число четное)
Проверяем 1) 123<50? НЕТ 123 - четное ? НЕТ Итог: НЕТ
2) 56 < 50 НЕТ 56 - четное? ДА Итог: ДА
3) 9 < 50 ? ДА (второе условие можно не проверять - Итог: ДА
4) 8<50 ? Да Итог: ДА
Ответ: 1)
Задание 2 Числа в клетках означают расстояния между пунктами. Берем во внимания только значения над диагональю. Всего таких шесть. Например, число 2 в первой строке на пересечении А и В это расстояние между пунктами А и В,где клетки пустые между этими пунктами нет дороги.
Кратчайшее расстояние между А и Е равно 5 условных единиц: АЕ=АВ+ВС+СЕ=2+1+2
Задание 3 Ответ 1)
Var a:string;
begin
readln(a);
if length(a)=1 then a:=a+' ';
if a[2]<>' ' then delete(a,2,1) else writeln('Такого нет');
readln;
<span>end.</span>
Я так понимаю, задача на вывод формулы?
!! Если V - стоимость конфет за килограмм, то
- стоимость за грамм.
Количество граммов конфет, которые Андрей может купить на сдачу можно рассчитать по формуле:
Или, если в виде, подходящем для программы:
"N = 1000(S - (n_1 * v_1 + n_2 * v_2))\V".
