единорог106
26.11.2020 22:04

даны два числа. если квадратный корень из второго числа меньше первого числа, то
увеличить второе число в пять раз.
написать программу в delphi​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
KitBanin
05.01.2022 16:32

язык программирования питон

1)

import math;

r = int(input());

print(2 * math.pi * r);

print(math.pi * r ** 2);

2)

1.

import math;

a = float(input());

b = float(input());

print((math.sqrt(a) + math.sqrt(b)) / (math.sqrt(a ** 2 + b ** 2)));

2.

import math;

z = float(input());

y = float(input());

print((z * y) / (math.sqrt(z ** 3 + y ** 3)));

3.

import math;

x = float(input());

print(math.abs(x ** 2 - 2.4 * x + ((x + 1) / (x ** 2 + 2;

3) понял что надо среднее арифмитическое сделать из трех чисел, если что-то не так понял напиши.

a = float(input());

b = float(input());

c = float(input());

print((a + b + c) / 3);

4) не понял условие, перевод не понятный. Напиши если сможешь качественно перевести.

вариант Б тоже-самое что и 4 задание.

0,0(0 оценок)
Ответ:
posaliza170401
07.01.2021 18:59

Program praktyka8;

uses graphABC;

begin

setwindowsize(640,480);

setwindowtitle('Відновіть малюнок');

setbrushcolor(clgreen);

rectangle(0,350,640,480);

setbrushcolor(clbrown);

rectangle(70,275,215,415);

line(150,180,70,275);

line(70,275,215,275);

line(215,275,150,180);

floodfill(150,250,clbrown);

circle(150,250,18);

setbrushcolor(clblue);

floodfill(150,250,clblue);

setbrushcolor(clblue);

rectangle(75,315,120,375);

setbrushcolor(clsilver);

rectangle(150,315,200,415);

setpencolor(clyellow);

setbrushcolor(clyellow);

line(25,25,150,75);

line(25,25,145,80);

line(25,25,140,85);

line(25,25,130,95);

line(25,25,125,100);

line(25,25,115,110);

line(25,25,110,115);

line(25,25,100,125);

line(25,25,95,130);

line(25,25,85,135);

line(25,25,80,140);

line(25,25,75,145);

setbrushstyle(bssolid);

circle(25,25,30);

setbrushcolor(clbrown);

setpencolor(clbrown);

rectangle(307,425,317,400);

setbrushcolor(cllime);

setpencolor(clblack);

ellipse(250,150,375,400);

setpencolor(clblack);

rectangle(450,400,465,375);

rectangle(500,400,515,375);

rectangle(425,375,540,365);

end.

Объяснение:

Во многих местах были орфографические ошибки, поэтому и не запускалось.

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