FreePascal.ru

Program
My_Program;

Var
let, let11, god, goda: set Of byte;
age, n: byte;
ok: string;

Begin
repeat
let := [0,5..9];
let11 := [11..14];
god := [1];
write('Введите возраст : ');
readln(age);
If (age In let11) Or (age Mod ...

Написал программку
Program g;
Var
let, let11, god, goda: set Of byte;
age, n: byte;
ok: string;
label lab;
Begin
lab:
let := [0,5,6,7,8,9];
let11 := [11,12,13,1
god := [1];
//goda := [2,3,4];
write('Введите количество лет&#58 ...

получилось



program ten;
label goback;
var B:array [1..50] of real;
K,i:integer;
d:string;
flag:boolean;
begin
goback:
write('Размерность массива ');
readln(K);
for i:=1 to K do
begin
write('B[',i,']=');
readln(B[i]);
end;
i ...

Спасибо

bormant писал(а):

Код: Выделить всё

...
if x <= -50 then y := 7 * x * x
else if x <= 50 then y := abs(3 * x)
else y := 2 * x * x * x + 1;
...

Пропущена ";" после writeln(). Один readln в конце лишний.

Большое спасибо)))))

По представленной блок-схеме составьте программу вычисления функции у при заданном с клавиатуры значении х
4444.jpg
подскажите где и что исправить (добавить)

profram xy;
var x,y:real;
begin
write('Введите х=');
readln(x);
if x<=-50 then y:=7*x*x else (x>-50) and (x<=50);
if (x>-50) and (x<=50 ...