Войти Регистрация Спроси ai-bota

1. Відкрийте табличний процесор Excel . Створіть таблицю для обчислення довжин діагоналей 5 прямокутників за даними довжи- нами їх сторін. Установіть формат результатів обчислення з двома десятковими розрядами. Збережіть книгу у вашій папц

Показать ответ

Ответ:

Юльчик12134567890

12.08.2021 08:41

{ ответ дан на языке Pascal }
{ Вариант a }
PROGRAM Solution(INPUT, OUTPUT);

VAR
Str: STRING;
Str1: STRING;
Str2: STRING;
Str3: STRING;
TempStr: STRING;

BEGIN
WRITE('Введите строку: ');
READLN(Str);
Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

WRITELN(Str2 + Str3 + Str1);

END.

{ Вариант b }
PROGRAM Solution(INPUT, OUTPUT);

VAR
Str: STRING;
Str1: STRING;
Str2: STRING;
Str3: STRING;
TempStr: STRING;

BEGIN
WRITE('Введите строку: ');
READLN(Str);
Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

WRITELN(Str3 + Str1 + Str2);

END.

0,0(0 оценок)

Ответ:

egor22832

12.08.2021 08:41

{ ответ дан на языке Pascal }
{ Вариант a }
PROGRAM Solution(INPUT, OUTPUT);

VAR
Str: STRING;
Str1: STRING;
Str2: STRING;
Str3: STRING;
TempStr: STRING;

BEGIN
WRITE('Введите строку: ');
READLN(Str);
Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

WRITELN(Str2 + Str3 + Str1);

END.

{ Вариант b }
PROGRAM Solution(INPUT, OUTPUT);

VAR
Str: STRING;
Str1: STRING;
Str2: STRING;
Str3: STRING;
TempStr: STRING;

BEGIN
WRITE('Введите строку: ');
READLN(Str);
Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

WRITELN(Str3 + Str1 + Str2);

END.

0,0(0 оценок)

Популярные вопросы: Информатика

ВасилийПетрович11

08.05.2021 17:30

написать программу которая выводит все числа от десяти до 1 результат должен быть 10 9 8 7 6 5 4 3 2 1...

spetsialist

06.07.2021 10:20

Скоро экзамен -4. основные понятия алгоритмизации св-ство алгоритма 5.виды программирования. структурная модульная, логическая, функциональная, процедурная 20. структура...

веселаямышка

06.07.2021 10:20

Вdelphi 7 даны различные действительные числа x, y, z, d. найти max (min (x, y), min (x, z), min (z,...

polina198678

07.11.2020 12:14

Укажите наибольшее х, при вводе которого алгоритм печатает сначала 3, а потом 4. var x, l, m: integer; begin readln(x); l: =0; m: =0; while x 0 do begin l: =l+1 if...

Bladsail

05.02.2022 08:30

Объём cd диска 700 мбайт. на нём хранится текстовая информация в файле с расширением txt. ученик читает со скоростью 1280 бит/мин за какое время он прочитает весь...

lisena123409

24.02.2022 15:32

Туристы(отец, мать и два близнеца) должны переправиться через реку. в их распоряжении есть маленькая лодка, вмещающая только одного взрослого или двоих детей. как...

varksen

11.05.2021 21:20

Наведіть приклад алгоритму з повторенням з повсякденного життя та подайте його письмово : 1) у словесному вигляді; 2) у вигляді блок-схеми....

Йщщ

10.12.2021 00:14

Сказочные и былинные персонажи встречали на перепутье предсказание: направо поедешь-себя коня потерчешь , значение слова перепутье...

Ksyusha891

10.12.2021 00:14

Периметр прямоугольника 23,5. одна сторона треугольника в 2 раза меньле второй стороны, а третья - на 4см меньше второй. найдите каждую сторону треугольника....

aevseeva03

10.12.2021 00:14

(-3,8) x (1 7/103) x (2x-4,7)=0 решить уравнение...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку