Поделитесь своими знаниями, ответьте на вопрос:
Написать код на java 1. Напишите класс, который вначале принимает с клавиатуры целое положительное число (в переменную х Затем класс выводит на экран в строку серию из 17 целых положительных чисел, отвечающую следующим условиям:1) серия начинается с числа, большего х на 1;2) каждое число в серии (начиная со второго) больше предыдущего на 1Числа должны отделяться друг от друга знаком «пробел». Перед началом и после окончания вывода серии чисел на экран вывода следует вывести текстовые сообщения (по выбору).2.Напишите класс, который вначале принимает с клавиатуры целоеположительное число (в переменную х). Затем класс выводит на экран в строку серию из 17 целых положительных чисел, отвечающую следующимусловиям:1) серия начинается с числа, меньшего х на 10;2) каждое число в серии (начиная со второго) меньше предыдущего на 6Числа должны отделяться друг от друга знаком «пробел». Перед началом и после окончания вывода серии чисел на экран вывода следует вывести текстовые сообщения (по выбору).3.Подрабатывая в течение года, Вася собрал себе определенную сумму на поездку за границу, а родители добавили ему от себя еще некоторую сумму.Напишите класс, который принимает с клавиатуры три значения: первое -сумма в рублях, заработанная Васей, второе - сумма в рублях, которую емудали родители, третье - курс рубля по отношению к евро. Класс долженподсчитать и вывести на экран сумму в евро, которая имеется у Васи дляпоездки за границу.
ответ: окей
объяснение:
для квадрата:
procedure tform1.button1click(sender: tobject);
var
a,b,c,d,p,s: real;
begin
a: =2; b: =2; c: =2; d: =2;
if ((a=b)and(c=d)and(a=d))then
begin
p: =(a+b+c+d)/2;
s: =sqrt((p-a)*(p-b)*(p-c)*(p-d));
showmessage('s='+floattostr(s));
end else showmessage('это не квадрат');
end;
для треугольника:
procedure tform1.button1click(sender: tobject);
var
a,b,c,p,s: real;
begin
a: =2; b: =2; c: =3;
if (abs(a-b)
begin
p: =(a+b+c)/2;
s: =sqrt(p*(p-a)*(p-b)*(p-c));
edit1.text: =floattostr(s);
end else showmessage('не треугольник');
end;