Информатический зрительное и слуховое обонятельной информации
1. uses crt;
var k:integer;
a:real;
begin
clrscr;
a:=10;
k:=1;
while a<=20 do
begin
a:=a+a*10/100;
k:=k+1;
end;
writeln ('Норма превысит 20 км на ',k,' день');
end.
2.
uses crt;
var k:integer;
m:array [1..15] of real;
begin
clrscr;
m[1]:=0.1;
m[2]:=0.1;
for k:=3 to 15 do
begin
m[k]:=m[k-1]+m[k-2];
end;
for k:=1 to 15 do
writeln (k:3 ,' день',m[k]:8:1,' кг');
end.
Const N=10;
var i, b, s: integer;
a: string;
begin
readln(b);
a := inttostr(b);
for i := 1 to length(a) do
if (strtoint(a[i]) > s) then
s := strtoint(a[i])
else
s:=10;
if (s = 10) then writeln('No') else writeln('Yes');
<span>end.
Удачи =)</span>