В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
llizka094
llizka094
27.10.2020 07:02 •  Информатика

Скласти проект, що буде виконувати: 1. Кнопка «Познайомимось!» запитає ваше ім’я в окремому вікні (InputBox), після чого під кнопкою з'явиться повідомлення «Вітаю, Іван!» (замість Івана має бути ім’я, яке ви ввели) 2. Кнопка «Обчислення» прочитає значення двох чисел, введених в поля Edit, знайде їх суму, різницю, добуток і частку і виведе всі результати на форму із відповідними підказками (Наприклад: Сума = 8 Різниця = 2 …) 3. Форму та всі компоненти на ній оформити на свій смак ЦЕ НА МОВІ ПРОГРАМУВАННЯ Lazarus
ДО ІТЬ​

Показать ответ
Ответ:
Mary3456
Mary3456
27.02.2020 14:40
Динозавры вымерли миллионы лет назад.Россия находится в периоде взрывного развития экономики в следствие повышенных темпов роста ВВП.Приготовим яичницу. Если держать температуру на уровне 200℃, то яйцо сгорит.Доступность и Понятность - одно и то же свойство. Как информация может быть доступной но непонятной - вопрос к свехразумам-состовителям.Если ткнуть пальцем в область "присутствия" электрона около атома, то электрона в этой точке ты не найдешь. (Информация не зависит от тебя и твоего знания о ней. Но ты не можешь принимать решения на её основе.)Динозавры вымерли миллионы лет назад.
0,0(0 оценок)
Ответ:
abdil2017
abdil2017
21.12.2022 18:05

1)

var n,k: integer;

begin

readln(n);

if (n>0) and (n<10) then k:=1

else if (n>9) and (n<100) then k:=2

else k:=3;

write(k);

end.

2)

var a,b,c: integer;

D,x1,x2: real;

begin

readln(a,b,c);

D:=b*b-4*a*c;

if(D>0) then begin

x1:=((-1)*b+sqrt(D))/(2*a);

x2:=((-1)*b-sqrt(D))/(2*a);

write(x1,' ',x2);

end else if (D=0) then begin

x1:=(-1)*b/(2*a);

write(x1);

end else write('Нет решений');

end.

3)

var x,y: integer;

begin

readln(x,y);

if(x=0) or (y=0) then write('точка лежит на координатной оси')

else begin

if(x>0) then begin

if(y>0) then write('I')

else write('IV');

end else

if(y>0) then write('II')

else write('III');

end;

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота