Паскаль. 1 дано целое число n.вычислить среднее арифметическое всех чисел из диапазона от 1 до n. 2 дано целое число n.вывести на экран все нечётные числа из диапахона от 1 до n. вычислить их сумму.
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var s:=ReadLnString('Вводите:'); s.ToWords.Where(x->x=ReverseString(x)).PrintLn; end.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган и с в шалаш
Вариант, если исключить однобуквенные:
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var s:=ReadLnString('Вводите:'); s.ToWords.Where(x->x=ReverseString(x)). Where(x->x.Length>1).PrintLn; end.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган шалаш
var N,i:integer;
begin
readln(N);
writeln((N+1)/2);
end.
var N,sum,i:integer;
begin
readln(N);
for i:=1 to N do if i mod 2<>0 then begin writeln(i); sum:=sum+i; end;
writeln(sum);
end.