Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ruslan189kalin
22.01.2023 18:08 •
Информатика
Составить алгоритм даны числа авс .удвоить каждое из них,если a
Показать ответ
Ответ:
умпцнмп
26.06.2020 16:15
program dhisla;
var a,b,c:real;
begin
readln(a,b,c);
if (a<b)and(b<c) then begin a:=2*a; b:=2*b; c:=2*c; end
else a:=abs(a); b:=abs(b); c:=abs(c);
writeln(a ,b,c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
меси5
11.07.2022 21:44
Заполнить массив из 10 элементов случайными числами в интервале [0..4]иопределить, есть ли в нем одинаковые соседние элементы.пример: исходный массив: 4 0 1 2 0 1...
Degradant81
01.04.2023 05:48
Составьте программу, котораясоставьте программу, которая заполняет массив а[1,,10 ] случайными числами в диапазоне от 0 до 10 , затем первый элемент меняет местами...
fish1704
04.12.2021 14:54
Рассмотрим основные свойства логических операций, называе- мые также законами алгебры логики.1. Переместительный (коммутативный) закон:• для логического умножения:A...
Лёшка1203
19.04.2023 14:51
Paint графикалық редакторы деген не? Суретті қалай сақтаймыз?...
asylhan11
26.08.2021 20:57
Процедураны қай кезде қолдана аламыз?...
21122007
10.09.2022 07:55
Нужен код для Pythona...
Riiiiiii
16.08.2021 20:15
Запиши верный ответ. Число 1910=100112 в восьмиразрядном представлении имеет вид:...
kristinasotsen
10.11.2022 10:07
Дан код, определите вид ветвленич и результат данного кода...
Danilakazan570
14.06.2020 16:29
Цуценятко Чакі важить 1,5 кг, а цуценятко Черрі - 2,5 кг. З їдаючи одну котлету, кожне цуценятко набирає у вазі 100 г. Через скільки днів Чакі наздожене Черрі, якщо...
anna1866
05.01.2021 06:06
, очень нужно. Скоро сдавать >...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b,c:real;
begin
readln(a,b,c);
if (a<b)and(b<c) then begin a:=2*a; b:=2*b; c:=2*c; end
else a:=abs(a); b:=abs(b); c:=abs(c);
writeln(a ,b,c);
end.