В каком городе родился спортсмен, который победил в соревнованиях по шорт-треку на Олимпийских играх в Сочи в 2014 году на
дистанции 1000 м?
Укажите страну и город через нижнее подчеркивание по-русски. В каждом из слов
первая буква заглавная, остальные маленькие. При вводе смотрим на русские буквы, но
включена английская раскладка клавиатуры.
Пример: если ответом будет Российская Федерация, г. Москва,
то пароль Hjccbqcrfz_Atlthfwbz_Vjcrdf
Если возможны разные варианты написания названия страны или города, попробуйте
использовать по очереди разные варианты

👇

Ответ:

po4emy228

02.07.2020

Ви́ктор Ан — российский шорт-трекист, до декабря 2011 года представлявший на международных соревнованиях Республику Корея. Заслуженный мастер спорта России (2013)

4,8(34 оценок)

Открыть все ответы

Ответ:

St9747

02.07.2020

ответ 51.
И так, вам ввели начальные значения переменных. Вас требуют проверить два условия. Если результатом его проверки будет true(т.е. истина, а истина в данном случае будет, только если оба условия будут истинными) то вы должны выполнить следущие действия: x=3*a+2*b+c, если результатом проверки логических выражений будет false(т.е. ложь, а ложь в данном случае будет при условии, что хотя бы 1 из данных логических выражений ложное, ну или оба выражения ложные), то тогда вы выполняете это: x=5*a-b+c.
И так, выполняем алгоритм
10>5 и 5>6? Нет, т.к. второе условие не выполняется. Значение логического выражения false, значит выполняем действия по ветке else(иначе), x=5*10-5+6=51
Всё. На экран выведится число 51.
маловато для такого развёрнутого объяснения, так что отметьте хотя бы как лучший ответ \_(•_•)_/

4,4(99 оценок)

Ответ:

жека596

02.07.2020

// PascalABC.NET 3.0, сборка 1088
begin
var n:=ReadLnString('Введите число: ');
n:=n.Where(x->x in ['0'..'9']).JoinIntoString('');
Writeln('Принятое число: ',n);
var a:=ReadLnChar('Введите искомую цифру: ');
Writeln('Количество цифр в числе равно ',n.Length);
if n[1]=n[n.Length] then Writeln('Первая цифра равна последней')
else Writeln('Первая цифра не равна последней');
if Pos(a,n)>0 then Writeln('Цифра ',a,' входит в число')
else Writeln('Цифра ',a,' не входит в число')
end.

Тестовое решение:
Введите число: тут спрятано 456. по частям 764 наше 03число
Принятое число: 45676403
Введите искомую цифру: 0
Количество цифр в числе равно 8
Первая цифра не равна последней
Цифра 0 входит в число

"Школьный вариант"
// PascalABC.NET 3.0, сборка 1088
var
n:longint;
i,k:integer;
sn:string;
a:char;
begin
Write('Введите число: '); Readln(n);
Str(n,sn);
Write('Введите искомую цифру: '); Readln(a);
k:=Length(sn);
Writeln('Количество цифр в числе равно ',k);
if sn[1]=sn[k] then Writeln('Первая цифра равна последней')
else Writeln('Первая цифра не равна последней');
if Pos(a,sn)>0 then Writeln('Цифра ',a,' входит в число')
else Writeln('Цифра ',a,' не входит в число')
end.

Тестовое решение:
Введите число: 3476573
Введите искомую цифру: 7
Количество цифр в числе равно 7
Первая цифра равна последней
Цифра 7 входит в число

4,4(94 оценок)

Это интересно:

Хобби-и-рукоделие

06.04.2022

Как разгладить мятую бумагу: простые методы и советы...

Кулинария-и-гостеприимство

16.11.2022

Как собрать идеальный пляжный обед?...

Здоровье

27.09.2022

5 простых советов по уходу за зубными протезами...

17.12.2021