Var min, max, x: byte;
begin
max=0;
min:=100;
for x:= 10 to 99 do begin
if (x mod 10)+(x div 10)=7 then begin
writeln (x);
if x>max then max:=x;
if x
Вот 2 презентации и сам доклад
Var a,b,c:integer;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('c=');
readln(c);
if (a+b>c) and (b+c>a) and (a+c>b) then writeln('treugolinik suscestvuet ;) else writeln('treugolinik ne suscestvuet');
readln;
end.
"З<span>аписями с последнего урока" воспользоваться не могу, потому задание сделано самым примитивным образом. Недостающий текст добавляйте сами. HTML-файлы и рисунок прилагаются.
Нет, HTML приложить сайт не даёт, так что посылаю в текстовом виде, тип файла (расширение) меняйте сами.</span>
Var k,k1,k2,kn,n,s:integer;
begin
write('k = ');
readln(k);
k1:=100;
k2:=100;
s:=k1+k2;
if k<=k1 then n:=1 else n:=2;
while s<k do
begin
n:=n+1;
kn:=k1+k2;
s:=s+kn;
k1:=k2;
k2:=kn;
end;
writeln('n = ',n);
end.
Пример:
<span>k = 1100
n = 5</span>