<span>0': write('zero ');
'1': write('one ');
'2': write('two ');
'3': write('three ');
'4': write('four ');
'5': write('five ');
'6': write('six ');
'7': write('seven ');
'8': write('eight ');
'9': write('nine ');
</span>
Program test ;
var
x,y:integer;
begin
writeln (' Введите x ');
readln (x);
y:=x^3+x^2+286;
writeln ('y равно');
end.
Для обозначения шагов алгоритма в блок-схемах используются геометрические фигуры: овал (начало и конец), параллелограмм (ввод/вывод), ромб (принятие решения) и прямоугольник (выполнение действия). Стрелки, связывающие эти фигуры, задают порядок выполнения соответствующих шагов.
Задание 3
var
y, x: Real;
begin
Write ('Введите x: ');
ReadLn (x);
y := 3 / (x - 5);
WriteLn ('y = ' + FloatToStr (y));
end.
// ----------------------------------------------
Задание 4
var
y, x: Real;
begin
Write ('Введите x: ');
ReadLn (x);
if x < -1 then
y := 2 * x + 4
else if x > 3 then
Sqrt (x + 7)
else
y := 3 * x * x - x + 1;
WriteLn ('y = ' + FloatToStr (y));
end.
1)Первый способ:
program one;
var a,b:integer;
begin
b:=0;
readln(a);
while a<>100 do
begin
if a=77 then
begin
b:=b+1;
readln(a);
end
else readln(a);
end;
if b>0 then writeln('Yes')
else writeln('No');
end.
2)Второй способ:
program one;
var a,b:integer;
begin
b:=0;
repeat
readln(a);
if a=77 then b:=b+1;
until a=100;
if b>0 then writeln('Yes')
else writeln('No');
end.
