Var
a, b, c: integer;
begin
write('Введите a,b ');readln(a,b);
if a>b then c:=a else c:=b;
writeln('c = ',c);
end.
Тест №1
Введите a,b 5 6
c = 6
Тест №2
Введите a,b 7 5
c = 7
Формулы
1) a+a+a \ 3
2)нужно знать ср. арифм. и 1 число
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var a:=ReadInteger('введите число a=').ToString();
writeln('сумма цифр: ',a[1].ToDigit()+a[2].ToDigit()+a[3].ToDigit()+a[4].ToDigit());
write('произведение: ',a[1].ToDigit()*a[2].ToDigit()*a[3].ToDigit()*a[4].ToDigit());
end.
<u>// PascalABC.NET 3.2, сборка 1436 от 01.05.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var str:='Дана строка, в которой содержится осмысленное текстовое сообщение. '+
'Слова сообщения разделяются пробелами и знаками препинания'+NewLine;
var podstr:='ния'; //подстрока
var temp:=str.Split.Where(i->pos(podstr,i)>0);
Writeln(str);
foreach var word in temp do Print(word)
end.