Готово
function max(a1, a2:integer):integer;
begin
if a1>a2 then max:=a1 else max:=a2;
end;

var
a, b, c, d: integer;
begin
readln(a, b, c, d);
write(max(max(a, b), max(c, d)));
end.

Если есть какие-то вопросы или ещё нужна помощь, в ЛС.

0 0

3 года назад

Ввести последовательность символов, заканчивающуюся точкой и определить, каких букв больше, ’ А’ или ’ Б’ C#

3863184

Static void Main(string[] args)
{
StringBuilder str = new StringBuilder();
Console.Write("Введите строку, ввод завершится по точке: ");
char input = Console.ReadKey(true).KeyChar;
if (char.IsLetterOrDigit(input) || char.IsSeparator(input)) Console.Write(input);
while(input != '.')
{
str.Append(input);
input = Console.ReadKey(true).KeyChar;
if (char.IsLetterOrDigit(input) || char.IsSeparator(input)) Console.Write(input);
}
Console.WriteLine();
string resStr = str.ToString();
int a = resStr.Count(p => p == 'а');
int b = resStr.Count(p => p == 'б');
if (a > b)
Console.WriteLine("В строке чаще встречается буква а");
else if (a < b)
Console.WriteLine("В строке чаще встречается буква б");
else
Console.WriteLine("В строке букв а и б равное количество");
Console.ReadKey();
}

0 0

3 года назад

Задание 4. Исполнителю Черепашка был дан для исполнения следующий алгоритм.Повтори 10 (Вперед 10 Направо 120°]. Какая фигура поя

вова 1974 [1]

г). Правильный треугольник.

0 0

3 года назад