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


Akhram
12.07.2021 03:02

Напишите программу рascal если х> 10 или х < 10 то у=х

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
Пользовательудален
Написать программу решения линейного буквенного выражения. Пример буквенного выражения: (a+3*b+|c|=)...
nadezda19831
nadezda19831
07.01.2021 14:56
35) Дан рекурсивный алгоритм: def F(n): print( * ) if n 0: F(n-3) F(n-2) F(n // 2) F(n // 2) Сколько символов звездочка будет напечатано на экране при выполнении вызова F(6)? С решением...
amina352
amina352
01.08.2021 01:39
Program myprg; var x,y: integer; begin writeln( x= ); readln (x); if (x 0) and (x =1) then y: =sqr(x)-x else y: =sqr(x)-sinpi*xsqr(x); writeln ( y= ,y); end. program2.pas(8) : неизвестное...
Milka0102200676
Milka0102200676
01.08.2021 01:39
Open source initiative (osi) – выберите один ответ: сайт информационной поддержки психологов продвижение и техническая поддержка открытого программного обеспечения специализированное...
Usimys
Usimys
28.04.2023 00:32
Решить по учебнику 7 класс в. м. котова. и. лапое. н. войтехович​...
оаоашвов
оаоашвов
05.08.2022 20:02
Дано вещественное число а и целое число n( 0) вывести а в степени n: а в степени n=а*а*а**а(числа а перемножаются n раз)....
натик65
натик65
29.05.2020 13:56
Определите логическое значение выражения: (p → q) ↔ (r → s), если p = закон относительности= эйнштейн , q = кого? что? = именительный падеж , r = фобос спутник марса , s = летом идет...
киса798
киса798
13.05.2023 11:25
Добрый день! необходимо написать программу-решение для это на языке паскаль по обвинению в ограблении перед судом предстали иванов, петров, сидоров. следствием установлено: 1. если...
amina353
amina353
30.10.2022 16:43
Самостоятельная работа № 17 «цикл с заданным условием продолжения работы»вариант 11. определите значение переменной а после выполнения фрагмента алгоритма, представленного блок-схемой.2....
Sasha190507
Sasha190507
25.01.2021 05:06
Переведите число 10100101 в десятичную систему счисления...
Ответ:
lerabregneva
08.10.2020 17:31
Var x,y:integer;
begin
x:=0; y:=0;
read(x);
if (x<>10) then
y:=x;
writeln(x,' ',y);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота