Задать вопрос!

Задать вопрос!

Все категории

Master Tehnology

4 года назад

5

Дано двухзначное число. Выведите на экран квадрат его первой цифры. (Pascal ABC)

Дано двухзначное число. Выведите на экран квадрат его первой цифры.
(Pascal ABC)

Информатика

1 ответ:

annie-swaggy [50]4 года назад

0 0

Ответ:

фото12345678910йцууке

Читайте также

Даны действительные числа а, b, с. Удвоить эти числа, если а ≥ b ≥ с, и заменить их абсолютными значениями, если а,b или с отриц

xz1953 [21]

<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>

begin
var (a,b,c):=ReadReal3('Введите три числа:');
if b.Between(a,c) then (a,b,c):=(2*a,2*b,2*c);
if (a<0) or (b<0) or (c<0) then (a,b,c):=(Abs(a),Abs(b),Abs(c));
Writeln('a=',a,', b=',b,', c=',c)
end.

Пример
Введите три числа: 3.6 -5.2 8
a=3.6, b=5.2, c=8

Первый оператор читает с клавиатуры три вещественных числа и помещает их в переменные a,b,c.
Второй оператор проверяет, находится ли второе число (b) между остальными двумя (может и совпадать с одним из них). Если да, то значение каждой переменной удваивается.
Третий оператор проверяет, есть ли среди введенных чисел хоть одно отрицательное. Если есть, значения заменяются их модулями (становятся положительными).
И в конце следует вывод результатов.

0 0

4 года назад

Определить является-ли треугольник равностронним, если известны длины его сторон. Составить блок-схему

lda [7]

Блок-схема - в прилагаемом файле.

0 0

4 года назад

для заданной функции k=4,3*sin(e^(1/d)+2)/(d+2,1)-6,7d вывести на экран значение функции, которые лежат в диапазоне от a до b и

Lonya [24]

10 rem
20 input d
30 let k=4.3*sin(exp(<span>1/d)+2)/(d+2,1)-6,7*d
40 print "k=";k
50 end

</span>

0 0

4 года назад

Помогите! Задача на рисунке

ТатьянаИльина

var

r, L, S, V: Real;

begin

Write ('Введите радиус: ');

ReadLn (r);

L := 2 * Pi * r;

S := Pi * r * r;

V := 4 / 3 * Pi * Power (r, 3);

Writeln ('Длина окружности = ', L);

Writeln ('Площадь круга = ', S);

Writeln ('Объем шара = ', V);

end;

0 0

4 года назад

Составить программу на языке Pascal: Решить квадратное уравнение вида а*х*х+в*х+с=о для произвольных а, в, с.

Владислав Робертович

Текст плохо форматируется, поэтому скину файлом.

0 0

4 года назад

Прочитать ещё 2 ответа