Так?
//Pascal
var
a, h, x, y: real;
begin
write('a = ');
readln(a);
write('h(шаг) = ');
readln(h);
writeln('x':5,'y':8);
x := -3;
while x <= 4 do
begin
y := a * (x * x * x);
writeln(x:7:2, y:10:2);
x := x + h;
end;
end.
// PascalABC.NET 3.0, сборка 1088
begin
var s:=ReadString('Введите текст: ');
var MySet:=s.Where(x->x<>' ').Distinct;
Writeln(MySet)
end.
<em><u>Тестовое решение:</u></em>
Введите текст: this is a test string for my own needs
[t,h,i,s,a,e,r,n,g,f,o,m,y,w,d]
1) Алфавит
Цифры
2) 2,3,4
3) 10011= 1*1+1*2+1*2в4=1+2+16=19
254=4*1+5*8+2*8во2=4+40+128=172
вроде бы правильно
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadReal2('Введите два числа:');
if a>b then Writeln('Первое число больше')
else
if b>a then Writeln('Второе число больше')
else Writeln('Числа равны')
end.
<u>Пример</u>
Введите два числа: 25 24.95
Первое число больше