Так?
//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.
Var
a: real;
begin
while a <= 1000 do
begin
writeln('Введите сумму покупки > 1000р');
readln(a);
if a > 1000 then break
else writeln('Ошибка! Введенная сумма покупки <= 1000p');
end;
writeln('Стоимость покупки с учетом скидки 10%: ', a * 0.9);
end.
Данная программа проверяет, больше 1000 или нет, введенная стоимость покупки. Можно сделать проще без проверки:
var
a: real;
begin
writeln('Введите сумму покупки > 1000р');
readln(a);
writeln('Стоимость покупки с учетом скидки 10%: ', a * 0.9);
end.
А) [т][е][к][с][т].
б) [т][е][к][с][т][о][в][а][я]
[и][н][ф][о][р][м][а][ц][и][я].
в) [д][о][к][у][м][е][н][т].
г) [с][и][м][в][о][л].
Дизъюнктор
<span> (соединенные параллельно замыкающие контакты нескольких реле).</span>