Var
a,b:real;
i:integer;
begin
i:=0;
readln(a,b);
while b<a do
begin
a:=a*1.15;
a:=a-b;
i:=i+1;
end;
<span>writeln('План можно выдерживать', i, ' лет' )</span>;
end.
Var
i : integer;
count : real;
begin
count := 370000;
for i := 2014 to 2030 do
begin
writeln('Год ', i, ': ', Round(count));
count := count + count * 3 / 100;
end;
<span>end. </span>
var
a: string;
begin
writeln('"Дверь открыта?" -(Да или Нет)');
readln(a);
if (a='Да') or (a='да') then
writeln('Тарелки Шрёдингера разбиты!')
else
if (a='Нет') or (a='нет') then
writeln('Тарелки Шрёдингера целы!');
end.
Первая задача
var a,b,x,y,z:
real;
begin
write ('х=');
read (x);
write('y=');
read (y);
write ('z=');
read (z);
a:= (x+y-z)/(x*x+2);
write ('a=');
write (a:1:2); end.
Вторая
var a,b,x,y,z:real;
begin
write ('х=');
read (x);
write('y=');
read (y);
write ('z=');
read (z);
a:= 5*((2*x-z)/(3+y*y));
write ('a=');
write (a:1:2);
end.
1-2
2-1
3-5
4-3
5-4
Цифры по порядку вместе с масками