Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
sayferbil
12.01.2022 20:29 •
Информатика
Записать на паскале следующее ветвление: а)если х> 0; то у: =√х в) если а> в; то а: =а-в иначе в: =в-а
Показать ответ
Ответ:
JICNX
24.09.2020 11:26
Program a1;
var
y,x:real;
begin
readln(x);
if x>0 then
y:=sqrt(x);
write(y);
end.
2.
Program a2;
var
a,b:integer;
begin
readln(a,b);
if a>b then
write(a-b)
else
write(b-a);
end.
0,0
(0 оценок)
Ответ:
маша3041
24.09.2020 11:26
Program xy;
var
x : integer;
y : real;
begin
writeln("Введите х");
readln(x);
if x > 0 then
y:=sqrt(x);
writeln("ответ:", y)
end.
program ab;
var
a, b : integer;
begin
writeln("Введите a");
readln(a);
writeln("Введите b");
readln(b);
if a>b then
a:=a-b;
else b:=b-a;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
klarabuhantsova
02.07.2022 07:27
1. Составить алгоритм несанкционированного хищения информации. 2. Разработать свой пример разглашения сведений ограниченного доступа. , буду при много благодарен...
SHAHRUKH575
13.05.2020 11:26
Перепишите программу на паскале, исправив ошибки: program massiv; var a: array(-10..10) of integer; begin for i: =1 to 20 do read(a[i]); for i: =1 to 20 do a[i]: =a[i]/10;...
НастяНевьянцева
04.03.2021 01:11
Дана табличная база данных в access.необходимо создать запрос для сортировки 1 поле(возр)+2 поле(возр).как это сделать? по идее,сортировку по возрастанию/убыванию можно...
вайли15
04.03.2021 01:11
Реферат набранный на компьютере,содержит 24 страницы,на каждой странице 72 строки,в каждой строке 48 символов.для кодирования символов используется кодировка кои-8,при которой...
kostiusikao
25.03.2023 04:29
1) составьте алгоритм, по которому на компьютере будет происходить следующее: в переменную s вводится возраст саши, в переменную м вводится возраст маши. в качестве результата...
Sendula
05.03.2023 01:13
Найти произведение всех ненулевых элементов массива d. массив d(10). ограничение d с нижним индексом i не равно 0 vba...
wwwshev24
16.09.2022 04:15
Определите, что будет напечатано в результате выполнения следующего алгоритма var a,b: integer; begin a: =0; b: =2364; while b 0 do begin if b mod 10 5 then a: =a+b mod...
viliam3486
16.09.2022 04:15
Не разбираюсь в паскале вообще. с использованием функции. составить функцию, которая определяет, сколько зерен попросил положить на n-ую клетку изобретатель шахмат( на 1-1...
timev01
27.11.2020 01:56
Найти сумму целых положительных чисел из промежутка от а до в, кратных 4 (значения переменных а и в вводятся клавиатуры)...
Vesthumer
27.11.2020 01:56
Мне задали презентацию на тему конец учебного года что можно там сделать?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
y,x:real;
begin
readln(x);
if x>0 then
y:=sqrt(x);
write(y);
end.
2.
Program a2;
var
a,b:integer;
begin
readln(a,b);
if a>b then
write(a-b)
else
write(b-a);
end.
var
x : integer;
y : real;
begin
writeln("Введите х");
readln(x);
if x > 0 then
y:=sqrt(x);
writeln("ответ:", y)
end.
program ab;
var
a, b : integer;
begin
writeln("Введите a");
readln(a);
writeln("Введите b");
readln(b);
if a>b then
a:=a-b;
else b:=b-a;
end.