Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
dashasapleva6
29.01.2021 07:48 •
Информатика
Дан массив вещественных чисел x[8]. каждый отрицательный элемент заменить на его абсолютную величину.
👇
Увидеть ответ
Ответ:
nik7710
29.01.2021
For i:=1 to 8 do
if a[i]<0 then
a[i]:=a[i]*(-1);
4,4
(89 оценок)
Открыть все ответы
Ответ:
taniataolia
29.01.2021
Program TaskA;
Var r1, r2: Integer;
Procedure S(r1, r2: Integer);
Var s: Real;
Begin
If r1 > r2 Then
s := Pi * (r1 * r1 - r2 * r2)
Else
s := Pi * (r2 * r2 - r1 * r1);
WriteLn('Площадь кольца: ', s:5:2);
End;
Begin
Write('r1 = ');
ReadLn(r1);
Write('r2 = ');
ReadLn(r2);
S(r1, r2);
ReadLn;
End.
Program TaskA;
Var r1, r2: Integer;
Function S(r1, r2: Integer): Real;
Begin
If r1 > r2 Then
result := Pi * (r1 * r1 - r2 * r2)
Else
result := Pi * (r2 * r2 - r1 * r1);
End;
Begin
Write('r1 = ');
ReadLn(r1);
Write('r2 = ');
ReadLn(r2);
WriteLn('Площадь кольца: ', S(r1, r2):5:2);
end.
4,6
(71 оценок)
Ответ:
11Аслан11
29.01.2021
Program TaskA;
Var r1, r2: Integer;
Procedure S(r1, r2: Integer);
Var s: Real;
Begin
If r1 > r2 Then
s := Pi * (r1 * r1 - r2 * r2)
Else
s := Pi * (r2 * r2 - r1 * r1);
WriteLn('Площадь кольца: ', s:5:2);
End;
Begin
Write('r1 = ');
ReadLn(r1);
Write('r2 = ');
ReadLn(r2);
S(r1, r2);
ReadLn;
End.
Program TaskA;
Var r1, r2: Integer;
Function S(r1, r2: Integer): Real;
Begin
If r1 > r2 Then
result := Pi * (r1 * r1 - r2 * r2)
Else
result := Pi * (r2 * r2 - r1 * r1);
End;
Begin
Write('r1 = ');
ReadLn(r1);
Write('r2 = ');
ReadLn(r2);
WriteLn('Площадь кольца: ', S(r1, r2):5:2);
end.
4,5
(55 оценок)
Это интересно:
02.12.2021
Как распознавать СДВГ у взрослых: симптомы и диагностика...
28.09.2020
Как медитировать, если вы подросток...
К
Кулинария-и-гостеприимство
07.03.2023
Как приготовить пончики: простой и вкусный рецепт...
18.05.2021
Как стильно и удобно одеваться в старшей школе: советы для парней...
Д
Дом-и-сад
21.11.2022
Как подрезать азалию: правила и рекомендации...
З
Здоровье
15.05.2021
Как распознать мошоночную грыжу...
П
Питомцы-и-животные
24.05.2020
Как спасти кошку, которая забралась на дерево?...
П
Питомцы-и-животные
13.09.2020
Как вырастить карпа кои: основные правила и советы...
П
Питомцы-и-животные
15.06.2022
Как производить убой крупного рогатого скота...
П
Путешествия
10.10.2021
Как собраться в деловую поездку: советы для эффективной подготовки...
Новые ответы от MOGZ: Информатика
dwgerashenko
23.02.2021
ОЧЕНЬ НУЖНО . ТОЛЬКО ВСЁ ПРАВИЛЬНО И С ОБЪЯСНЕНИЕМ ОЧЕНЬ НУЖНО ....
Sveta11111111Love
10.02.2020
сделать 4 задание на языке КуМир (алгоритмическом)...
zhabinalena1
23.02.2022
Вычислить значения логической функции f(x1,x2)= x1vx2vx1vx2 при заданных значениях аргументов x1=0 x2=1...
Angelina937
23.02.2022
Продолжите последовательность 6 9 18 21 42 45 записал два следующих числа...
Настя190411
23.06.2022
Сстрелок укажите соответствие ячеек левой таблицы ячейкам правой таблицы. ...
hilton1
29.06.2021
Какое количество информации необходимо, чтобы отгадать слово, состоящее из 8 букв и записанное с алфавита из 36 букв? !...
pollypron
05.05.2022
Заполнить пропуски: а) 5 кбайт = =; б) = = 12288 бит; в) = = 2048 бит; г) =1536 мбайт =; д) 512 кбайт = = . переведите: 16 бит =; 4 байта = 2,5 байта =; 20 кб = 640, 7 кб...
Дима6u9432
25.01.2022
Программирование на языке питон. использовать ветвление. 35 напишите программу, которая получает три числа – рост трёх спортсменов, и выводит сообщение «по росту.», если числа...
lucaa
30.11.2022
Статья, набранная на компьютере, содержит 64 страницы, на каждой странице 40 строк, в каждой строке 40 символов. определите размер статьи в кодировке кои-8, в которой каждый...
eio32120kopqicom
10.09.2021
Заполнить одномерный массив 5 элементами случайным образом в диапазоне от -10 до 10 .вычислить произведение элементов массива .произведение -288...
MOGZ ответил
Назовите охраняемых животных в республике казахстан в крадце на экзамен...
Краткое правило по рус.яз не с существительными...
Перевести в виде обыкновенной дроби 5/100: 692/10...
Составтье предложения со словами: гуенная стая, серебряная брошь, соломенный,...
Перевести в виде обыкновенной дроби 5/100: 692/10...
Напишите доклад о герое(после войны)тоесть,когда закончилась война,а не...
Сумма двух чисел равна 356. если вычтем из первого числа 137, то получим...
Морфологический разбор слов сбросьте одеяло...
Написать небольшое сообщение о копилке...
В1букете 29ромашек.это на 29 ромашек больше,чем во втором букете, но на...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
if a[i]<0 then
a[i]:=a[i]*(-1);