уукуку
05.06.2023 04:24

DB
BE
2. X=10. Чому дорівнює у після виконання
оператора?
If x<0
Then y := x
Else
If x <= 5
Then y := sqr(x)
Else y := 2*x;
ООО​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Volk218
02.12.2022 09:43
Ирина и Тимур = не информатика 
Камилла и Эльдар = не информатика 
Тимур = боится физики 
Камилла, Тимур = не литература, но плавают 
Тимур и Камилла = поздравили математика 
Ирена = cожалеет мало времени на литературу
победители по: физике, математике, информатике, литературе и географии.
Залим -  информатика (Ирена и Тимур = учит, Камилла и Эльдар = интересуются) 
Тимур - не физика, не литература, не математика, не информатика, 
значит география 
Камилла - не информатика, не литература, не математика, уже не география => Физика 
Ирена - не информатика, не физика, не география => Литература 
Эльдар - Математика
0,0(0 оценок)
Ответ:
FD140
16.09.2020 09:33
Var a,s1,s2:integer;
begin
read (a);
if (a>=1000)and (a<=9999)then
begin
s1:=(a mod 10) + ((a mod 1000) div 100);
s2:=(a div 1000) + ((a mod 100) div 10);
if (s1>s2)then writeln ('Сумма цифр,стоящих на четных местах больше суммы цифр, стоящих на нечетных местах');
if (s1<s2)then writeln ('Сумма цифр,стоящих на нечетных местах больше суммы цифр, стоящих на четных местах');
if (s1=s2)then writeln ('Сумма цифр,стоящих на четных местах равна сумме цифр, стоящих на нечетных местах');
end
else writeln ('Вы ввели не 4-ёхзначное число');
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота