Написать код на java 1. Напишите класс, который вначале принимает с клавиатуры целое положительное число (в переменную х). Затем класс выводит на экран в строку серию из 17 целых положительных чисел, отвечающую следующим условиям:
1) серия начинается с числа, большего х на 1;
2) каждое число в серии (начиная со второго) больше предыдущего на 1
Числа должны отделяться друг от друга знаком «пробел». Перед началом и после окончания вывода серии чисел на экран вывода следует вывести текстовые сообщения (по выбору).
2.Напишите класс, который вначале принимает с клавиатуры целое
положительное число (в переменную х). Затем класс выводит на экран в строку серию из 17 целых положительных чисел, отвечающую следующим
условиям:
1) серия начинается с числа, меньшего х на 10;
2) каждое число в серии (начиная со второго) меньше предыдущего на 6
Числа должны отделяться друг от друга знаком «пробел». Перед началом и после окончания вывода серии чисел на экран вывода следует вывести текстовые сообщения (по выбору).
3.Подрабатывая в течение года, Вася собрал себе определенную сумму на поездку за границу, а родители добавили ему от себя еще некоторую сумму.
Напишите класс, который принимает с клавиатуры три значения: первое -
сумма в рублях, заработанная Васей, второе - сумма в рублях, которую ему
дали родители, третье - курс рубля по отношению к евро. Класс должен
подсчитать и вывести на экран сумму в евро, которая имеется у Васи для
поездки за границу.
a: array [,] of integer;
begin
var n := ReadlnInteger('n = ');
var m := ReadlnInteger('m = ');
var rand := ReadlnInteger('Для ручного ввода нажмите 0');
if rand = 0 then begin
a := new integer[m, n];
for var i := 0 to m-1 do
for var j := 0 to n-1 do
a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = ');
end
else a := MatrixRandom(m, n, 1, 100);
Println(a);
var b := ArrGen(n, x -> 1);
for var i := 0 to m-1 do
for var j := 0 to n-1 do
if j mod 2 = 0 then
b[j] := b[j] * a[i, j];
b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println();
end.
USES CRT;
VAR m1,m2,n,n1,n2,n3,n4,n5,n6,s1,s2:LongInt;
BEGIN
ClrScr;
ReadLn(n);
m1:=n;
n1:=m1 div 100;
n2:=m1 mod 10;
n3:=(m1-n1*100-n2) div 10;
if n1=n2 then if n1=n3 then writeln('vse =');
if n1=n2 then writeln('1 i 3 =');
if n2=n3 then writeln('2 i 3 =');
if n1=n3 then writeln('1 i 2 =')
else writeln('<>');
END.
Проверяйте, что непонятно - спрашивайте.
Можно чуть поправить вывод, чтобы когда vse =, не вылезали 1 i 3, 1 i 2, 2 i 3.
Да и вообще writeln'ов можно наставить и переменные назвать покрасивше. но это уж вы сами, думаю, справитесь. В VAR у меня тоже есть лишние переменные, переделывал старый свой код наспех =)
Всего хорошего.