плс кто знает как сдевать программу в паскале Напиши программу на Паскале для решения следующей задачи. Даны два числа b и c. Если числа равны, то замени каждое из них произведением b*c, иначе - числом 30.
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016 begin var s:=ReadInteger('n=').ToString; Writeln('Количество цифр, меньших 6, равно ', s.Where(x->x<'6').Count); Writeln('Сумма первой и последней цифры равна ', StrToInt(s[1])+StrToInt(s[s.Length])); Writeln('Сумма самой маленькой и самой большой цифры равна ', StrToInt(s.Min)+StrToInt(s.Max)); end.
Тестовое решение: n= 254904 Количество цифр, меньших 6, равно 5 Сумма первой и последней цифры равна 6 Сумма самой маленькой и самой большой цифры равна 9
1) Это явно шифр замены. Мы знаем, что: А = Я, Н = С, Т = М, О = Р, М = Т, И = Ц, Х = Й, Л = У, Ь = Г, Е = Ъ, В = Э, Г = Ь, Й = Х. Этого достаточно, чтобы подставить буквы и получить НМЪПЯС = СТЕ*АН, очевидно, что это СТЕПАН. А если немного подумать, то можно догадаться, какой это шифр. Взяли алфавит и написали два раза - прямо и наоборот. Каждая буква из 1 алфавита заменяется на букву 2 алфавита. А = Я, Б = Ю, В = Э, Г = Ь, и так далее.
2) Про Виталия. Из 96 друзей 76 знают Павла и 56 знают Андрея. Значит, минимум 76+56-96 = 36 чел знают и Павла и Андрея. Про Павла. Из 162 друзей 96 знают Андрея и 76 знают Виталия. Минимум 96+76-162 = 10 знают и Андрея и Виталия. Про Андрея. Из 108 друзей 56 знают Виталия и 96 знают Павла. Минимум 56+96-108 = 44 знают и Виталия и Павла. Выбираем наибольшее из минимальных чисел. ответ: минимум 44 чел знакомы со всеми тремя парнями.
begin
var s:=ReadInteger('n=').ToString;
Writeln('Количество цифр, меньших 6, равно ',
s.Where(x->x<'6').Count);
Writeln('Сумма первой и последней цифры равна ',
StrToInt(s[1])+StrToInt(s[s.Length]));
Writeln('Сумма самой маленькой и самой большой цифры равна ',
StrToInt(s.Min)+StrToInt(s.Max));
end.
Тестовое решение:
n= 254904
Количество цифр, меньших 6, равно 5
Сумма первой и последней цифры равна 6
Сумма самой маленькой и самой большой цифры равна 9