Var
i:integer;
begin
writeln('Введите символ: ');readln(i);
if (i>64) and (i<91) or (i>96) and (i<123) or (i>191) then
writeln('Это буква: ',chr(i))
else
writeln('Это символ: ',chr(i));
end.
Var a, b, x: integer;
Begin
write('Введите число a: ');
readln(a);
write('Введите число x: ');
readln(x);
write('Введите число b: ');
readln(b);
if (a×x+b<=0) then
writeln ('Сумма чиселел меньше или равна нулю')
else writeln('Сумма числел больше нуля');
End.
// PascalABC.NET 3.0, сборка 1128
begin
var a:=ArrRandom(30,-10,20).Println(',');
Writeln('Сумма элементов, больших 10, равна ',
a.Where(x->x>10).Sum);
end.
<u><em>Тестовое решение:</em></u>
4,-8,-7,10,13,0,11,-6,-9,-1,-7,-6,2,19,4,-10,-6,9,4,13,-6,20,-4,15,-3,-2,-7,3,16,18
Сумма элементов, больших 10, равна 125
А фото??????????????????????????????????????????????????