Поиграйтесь с рисовкой =)
PRINT "Vvedite chislo x1!"
INPUT x1
PRINT "Vvedite chislo x2!"
INPUT x2
PRINT "Vvedite chislo y1!"
INPUT y1
PRINT "Vvedite chislo y2!"
INPUT y2
CLS
SCREEN 12
LINE (x1, y1)-(x2, y2), 5, BF
END
1) сделать маленькие лепешки. 2) положить в эти лепешки начинку и залепить. 3) положить их на сковородку и пожарить
Var a,b:string;
i:integer;
begin
readln(a);
readln(b);
for i:=1 to length(a) do
if a[i]=b then continue
else write(a[i]);
<span>end.</span>
Лови
var
m,a:integer;
b,col,mor,kl,la:real;
begin
write('Сколько кг капусты = ');
readln(m);
a:=m div 10;
b:=m mod 10;
mor:=350*a;
kl:=200*a;
col:=225*a;
la:=4*a;
b:=b*0.1;
mor:=mor+350*b;
kl:=kl+200*b;
col:=col+225*b;
la:=la+4*b;
writeln('На ',m,'кг капусты надо : Морковки - ',mor,'г. Клюквы - ',kl,'г. Соли - ',col,'г. Лаврового листа - ',la,'г');
<span>end.
Тут программа только с двузначными числами работает то есть 15кг 30кг и так далее. </span>
Var p, q: longint;
n, i, j, c: integer;
begin
// 1
write('n=');readln(n);
for i := 1 to n do begin
q := 1;
for j := 1 to i do q := q * i;
p := p + q;
end;
writeln ('Значение = ', p);
// 2
write('Число годовых оценок=');readln(n);
p:=0;
for i := 1 to n do begin
write('оценка: '); readln(c);
if c = 5 then p := p + 1
else if c = 2 then p := - 1;
end;
writeln(p > 0);
// 3
n := 20; p := MaxInt;
for i := 1 to n do begin
write('Введите высоту здания ', i, ': ');
readln(c);
if c < p then p := c;
end;
writeln('Минимальная высота: ', p);
//4
n := 20; p := -1;
for i := 1 to n do begin
write('Введите высоту здания ', i, ': ');
readln(c);
if c > p then p := c;
end;
writeln('Максимальное значение высоты: ', p);
<span>end.</span>