Нужны коды для решения на java (эмулятор эклипс) 1.найдите сумму чисел 7, 10, 13, 16, 19, 22, 25, 28 и 31. 2.ввести с клавиатуры два числа, определить что больше сумма квадратов или квадрат суммы этих чисел. ответ вывести в виде сообщения. 3.даны два целых числа a и b(a 4.написать программу табулирования функции на заданном промежутке с шагом 0.2. функция y=x^2 +sin5x интервал [0.1 ; 2.1] 5. задать массив целых чисел длиной - длинна массива 20 , диапозон значений эл массива -. для каждого положительного элемента массива найти, есть ли в массиве элементы, равные ему по модулю, но противоположные по знаку. если есть, то заменить изменить знак отрицательного элемента. вывести элементы массива на экран. 6. отсортировать по возрастанию элементов последней строки целочисленный двумерный массив 3х4. 7.задать одномерный (или двумерный, в зависимости от варианта) массив целых чисел размерностью согласно варианту. отсортировать одномерный массив длиной n=50 по убыванию методом простого обмена. 8.дана строка текста. найти: количество слов, начинающихся с буквы «б»; . 9.разработка прикладной программы «экскурсия по слпт» программа должна позволить пользователю посетить разные части техникума, быть направлена на привлечение абитуриентов
var
s: string;
i, count: integer;
begin
writeln('Vvedite stroky: ');
readln(s);
for i := 1 to length(s) - 2 do
if copy(s, i, 3) = 'abc' then
count := count + 1;
writeln('Kol-vo: ', count);
end.
2.
var
s1, s2: string;
i, len1, len2: integer;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
len1 := length(s1);
len2 := length(s2);
if len1 > len2 then writeln('1 stroka dlinnee')
else if len1 < len2 then writeln('2 stroka dlinnee')
else writeln('dlini strok ravnie')
end.
3.
var
s1, s2, s3: string;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
s3 := s1[1] + s1[2] + s2[1] + s2[2];
writeln('Novaja stroka: ', s3);
end.
begin
var a:=ArrRandom(100,-10,10);
a.Println;
Writeln(a.Where(x->x>0).Count,' положительных, ',
a.Where(x->x<0).Count,' отрицательных')
end.
Тестовое решение:
4 -6 0 8 2 -2 -1 -8 -6 8 -3 7 4 -7 -5 9 0 -3 -7 1 0 -4 6 3 8 -10 4 9 3 5 8 5 5 8 10 4 -8 3 8 8 -9 2 7 -8 -7 -5 2 -9 0 9 -7 7 -2 -6 7 -2 -1 7 -10 2 4 1 -1 0 10 3 -8 6 -6 2 6 7 -1 -4 -1 8 0 3 0 2 -2 2 -1 5 1 -9 -4 1 -9 1 -6 -5 3 -4 -7 1 -7 -3 -7 1
51 положительных, 42 отрицательных